f=1
k=365
j=1
repeat 99 printf "n=$[++j], p=%.8f
" $[1-(f*=--k/365.)]