Plot Table[StirlingS2[i,N]*N!/(N^i),{i,0,1000}]where(N=40)