n = 17 (slider from 2 to 50, step 1)
p = 0.572 (slider from 0 to 1, step 0.0010)
Liste1 = Sequence((k, Binomial[n, k] * p^(k) * (1.0 - p)^(n - k)), k, 0.0, n)
dasspeziellek = 13 (slider from 0 to 50, step 1)
A = Element(Liste1, dasspeziellek)