A015558 Nearest integer to (n/e)^n.

0, 1, 1, 5, 21, 116, 751, 5628, 47811, 453999, 4765190, 54782415, 684597510, 9239952802, 133952757201, 2075907567336, 34247231626810, 599244998013964, 11084682598687313, 216127622080213321

Offset

1,4

Links

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

Maple

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

Mathematica

Table[Round[(n/E)^n], {n, 20}] (* Harvey P. Dale, May 06 2013 *)

Prog

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

Crossrefs

Sequence in context: A121881 A041321 A082428 * A168598 A002711 A218962

Adjacent sequences: A015555 A015556 A015557 * A015559 A015560 A015561

Keyword

nonn

Author

Simon Plouffe

Status

approved