S M Blinder,
I don't think you've got my question
I'll write my program for your assistance
f[x_] :=1- 365!/((365-x)!*365^x).
This program would give the chances for 'x' number of days.
This made a table for all probabilities
In[2]:t=Table[1- 365!/((365-x)!*365^x),{x,1,366}].
out[2]:{0,.......(all the probabilities ) ......,1}
In[3]: Plot[t]
The output instead of what shown in the shot above, showed some random lines
What I expected that the first expr I.e.0 in out[2] would have 0 as y coordinate and 1 as x coordinate and the last value would have 1 as y coordinate and 366 as x
The above figure shows till 100 but I wanted to expand it till 366
Or I suppose if I write Plot[Do[Print[n," ",N[P2[n,365]]],{n,1,366}]]
it'd plot the above figure ?