N[1 - StirlingS2[n , 365]*365!/365^n] for n=2000