A174300 - OEIS

A174300

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

1, 1, 1, 1, 1, 1, 2, 5, 14, 45, 165, 667, 2944, 14076, 72492, 400021, 2354550, 14725238, 97508022, 681552736, 5014584788, 38740015634, 313536416650, 2652902840112, 23422761943260, 215418814359447, 2060451979153568, 20465943911593384, 210812000258805579

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,7

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..200

MATHEMATICA

Table[Ceiling[n!*Exp[ -n]], {n, 0, 20}]

PROG

(Maxima) A174300(n) := block(

ceiling(n!*exp(-n))

)$ /* R. J. Mathar, Mar 11 2012 */

CROSSREFS