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,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

Harry J. Smith, Table of n, a(n) for n = 1..200

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

Cf. A000149, A061293.

Sequence in context: A213919 A362043 A337220 * A362378 A204929 A362490

Adjacent sequences: A062274 A062275 A062276 * A062278 A062279 A062280

Keyword

nonn

Author

Henry Bottomley, Jul 02 2001

Status

approved