Plot[StirlingS2[1000, x] * x! * Binomial[365, x] / 365^1000,{x,325,355}]