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

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

Sequence in context: A119429 A290615 A347420 * A059216 A259871 A285201

Adjacent sequences: A174297 A174298 A174299 * A174301 A174302 A174303

Keyword

nonn

Author

Roger L. Bagula, Mar 15 2010

Status

approved