login
A062277
a(n) = floor(e^n / n^e).
2
2, 1, 1, 1, 1, 3, 5, 10, 20, 42, 88, 189, 414, 921, 2077, 4737, 10921, 25416, 59646, 141033, 335752, 804258, 1937372, 4690989, 11412140, 27884328, 68407056, 168446547, 416226830, 1031816793, 2565591729, 6397371713, 15994440540
OFFSET
1,1
COMMENTS
e is the only positive real k for which k^n is greater than or equal to n^k for all positive real n.
LINKS
EXAMPLE
a(1) = floor(e^1 / 1^e) = floor(e) = 2.
MATHEMATICA
Array[Floor[E^#/#^E] &, 33] (* Michael De Vlieger, Jul 01 2018 *)
PROG
(PARI) { default(realprecision, 100); e=exp(1); for (n=1, 200, write("b062277.txt", n, " ", floor(e^n / n^e)) ) } \\ Harry J. Smith, Aug 03 2009
CROSSREFS
Sequence in context: A213919 A362043 A337220 * A362378 A204929 A362490
KEYWORD
nonn
AUTHOR
Henry Bottomley, Jul 02 2001
STATUS
approved