n = 6 (slider from 1 to 25, step 1)
L2: IterationList[-x, -1, n] * (-1)
L1 = Sequence(Binomial[n, r] * (1 - r / n)^(x - 1) * r / n * Element[L2, r], r, 1, n - 1)
g = If(x < n, 0, Sum[L1])
Text1 = LaTeX(n, true, true)
a = BarChart(-0.5, 50.5, Sequence[g(i), i, 0, 49])
Text3 = Text("Der Berechnung liegt die Siebformel zugrunde.")
L3 = Sequence(g(k), k, 0, 200)
L4 = Sequence((i, Sum[L3, i]), i, 0, 200)
Text2 = Text("Die Grafik  beinhaltet die kumulierten Wahrscheinlichkeiten, mit genau k Ziehungen eine vollständige Serie der Länge n zu erhalten.")