A174299 a(n) = floor(n!*exp(-n)).

1, 0, 0, 0, 0, 0, 1, 4, 13, 44, 164, 666, 2943, 14075, 72491, 400020, 2354549, 14725237, 97508021, 681552735, 5014584787, 38740015633, 313536416649, 2652902840111, 23422761943259, 215418814359446, 2060451979153567, 20465943911593383, 210812000258805578, 2249048624575857158, 24821362535291019333

Offset

0,8

Links

Table of n, a(n) for n=0..30.

Maple

A174299:=n->floor(n!*exp(-n)): seq(A174299(n), n=0..30); # Wesley Ivan Hurt, Aug 20 2015

Mathematica

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

Prog

(PARI) first(m)=vector(m, i, i--; floor(i!/exp(i))) \\ Anders Hellström, Aug 20 2015
(Magma) [Floor(Factorial(n) / (Exp(n))): n in [0..40]]; // Vincenzo Librandi, Aug 21 2015

Crossrefs

Sequence in context: A124463 A081197 A005490 * A351028 A285188 A192255

Adjacent sequences: A174296 A174297 A174298 * A174300 A174301 A174302

Keyword

nonn,easy

Author

Roger L. Bagula, Mar 15 2010

Extensions

Notation standardized by the Assoc. Eds. of the OEIS, Mar 31 2010

Added more terms and prepended terms a(0)..a(5), Joerg Arndt, Aug 13 2015

Status

approved