Problem 5
n=1000001; p=N[1/1900000];
p*(1-p)^(n-1)
Converted by
Mathematica
February 10, 2001