a=1;for(i in 1:99)write(sprintf("n=%d, p=%.8f",i+1,1-(a=a-a*i/365)),T)