%I #9 Mar 30 2012 17:34:39
%S 1,1,1,1,1,1,2,5,14,45,165,667,2944,14076,72492,400021,2354550,
%T 14725238,97508022,681552736,5014584788,38740015634,313536416650,
%U 2652902840112,23422761943260,215418814359447,2060451979153568,20465943911593384,210812000258805579
%N Ceiling(n!*exp(-n)).
%H Vincenzo Librandi, <a href="/A174300/b174300.txt">Table of n, a(n) for n = 0..200</a>
%t Table[Ceiling[n!*Exp[ -n]], {n, 0, 20}]
%o (Maxima) A174300(n) := block(
%o ceiling(n!*exp(-n))
%o )$ /* R. J. Mathar, Mar 11 2012 */
%K nonn
%O 0,7
%A _Roger L. Bagula_, Mar 15 2010