OFFSET
0,4
LINKS
Iain Fox, Table of n, a(n) for n = 0..450 (terms 0..200 from Vincenzo Librandi)
MAPLE
Digits := 64: E:=exp(1); f := n->ceil(evalf((n/E)^n));
MATHEMATICA
Join[{1}, Table[Ceiling[(n/E)^n], {n, 20}]] (* Harvey P. Dale, Aug 09 2014 *)
PROG
(Magma) [Ceiling((n/Exp(1))^n): n in [0..20]]; // Vincenzo Librandi, Aug 10 2014
(PARI) for(n=0, 20, print1(ceil((n^n*exp(-n))), ", ")) \\ G. C. Greubel, Dec 30 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Typo in Mathematica program fixed by Vincenzo Librandi, Aug 10 2014
STATUS
approved