n = 100 (slider from 1 to 100, step 1)
p = 0.43 (slider from 0 to 1, step 0.01)
e = 2.718281828459045
f(x) = 1.0 / (sqrt(2.0 * 3.141592653589793) * sqrt(n * p * (1.0 - p))) * e^(-1.0 * 0.5 * ((x - n * p) / sqrt(n * p * (1.0 - p)))^(2.0))
a = Histogram(Sequence[k - 0.5, k, 0.0, n + 1.0, 1.0], Sequence[Binomial[n, k] * p^(k) * (1.0 - p)^(n - k), k, 0.0, n, 1.0])