Plot[StirlingS2[n,365]*365!/365^n, {n, 365, 4000}]