#Funktion zur Berechnung der Wahrscheinlichkeit,
#dass k Kugeln an n FŠcher verteilt werden
#und mindestens ein Fach leer bleibt.
leerF<-function(n,k){
m<-seq(1,n)
sum((-1)**(1+m)*((n-m)/n)**k*(choose(n,m)))
}