login
A015554
a(n) = floor( (n/e)^n ).
1
0, 0, 1, 4, 21, 115, 750, 5628, 47811, 453999, 4765190, 54782414, 684597510, 9239952802, 133952757201, 2075907567336, 34247231626809, 599244998013963, 11084682598687312, 216127622080213321
OFFSET
1,4
LINKS
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
KEYWORD
nonn
AUTHOR
STATUS
approved