Sum[Binomial[1000, i] * (1/100)^i * (99/100)^(1000 - i),{i, 0, 14}]