login
Ceiling(n!*exp(-n)).
1

%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