A015554 a(n) = floor( (n/e)^n ).

0, 0, 1, 4, 21, 115, 750, 5628, 47811, 453999, 4765190, 54782414, 684597510, 9239952802, 133952757201, 2075907567336, 34247231626809, 599244998013963, 11084682598687312, 216127622080213321

Offset

1,4

Links

G. C. Greubel, Table of n, a(n) for n = 1..445

Maple

Digits := 64:f := n->floor(evalf((n/E)^n));

Mathematica

Table[Floor[(n/E)^n], {n, 20}] (* Harvey P. Dale, Oct 18 2012 *)

Prog

(PARI) for(n=1, 20, print1(floor((n*exp(-1))^n), ", ")) \\ G. C. Greubel, Dec 30 2017
(Magma) [Floor(n^n*Exp(-n)): n in [1..30]]; // G. C. Greubel, Dec 30 2017

Crossrefs

Sequence in context: A349300 A240436 A255139 * A024051 A180908 A212419

Adjacent sequences: A015551 A015552 A015553 * A015555 A015556 A015557

Keyword

nonn

Author

Simon Plouffe

Status

approved