|
%I #15 Sep 08 2022 08:45:51
%S 1,0,0,0,0,0,1,4,13,44,164,666,2943,14075,72491,400020,2354549,
%T 14725237,97508021,681552735,5014584787,38740015633,313536416649,
%U 2652902840111,23422761943259,215418814359446,2060451979153567,20465943911593383,210812000258805578,2249048624575857158,24821362535291019333
%N a(n) = floor(n!*exp(-n)).
%p A174299:=n->floor(n!*exp(-n)): seq(A174299(n), n=0..30); # _Wesley Ivan Hurt_, Aug 20 2015
%t Table[Floor[n!*Exp[ -n]], {n, 0, 20}]
%o (PARI) first(m)=vector(m, i, i--; floor(i!/exp(i))) \\ _Anders Hellström_, Aug 20 2015
%o (Magma) [Floor(Factorial(n) / (Exp(n))): n in [0..40]]; // _Vincenzo Librandi_, Aug 21 2015
%K nonn,easy
%O 0,8
%A _Roger L. Bagula_, Mar 15 2010
%E Notation standardized by the Assoc. Eds. of the OEIS, Mar 31 2010
%E Added more terms and prepended terms a(0)..a(5), _Joerg Arndt_, Aug 13 2015
|
