A062277 a(n) = floor(e^n / n^e).
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
Keywords
Examples
a(1) = floor(e^1 / 1^e) = floor(e) = 2.
Links
- Harry J. Smith, Table of n, a(n) for n = 1..200
Programs
-
Mathematica
Array[Floor[E^#/#^E] &, 33] (* Michael De Vlieger, Jul 01 2018 *)
-
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
Comments