|
%I #10 Jul 01 2018 17:53:11
%S 2,1,1,1,1,3,5,10,20,42,88,189,414,921,2077,4737,10921,25416,59646,
%T 141033,335752,804258,1937372,4690989,11412140,27884328,68407056,
%U 168446547,416226830,1031816793,2565591729,6397371713,15994440540
%N a(n) = floor(e^n / n^e).
%C e is the only positive real k for which k^n is greater than or equal to n^k for all positive real n.
%H Harry J. Smith, <a href="/A062277/b062277.txt">Table of n, a(n) for n = 1..200</a>
%e a(1) = floor(e^1 / 1^e) = floor(e) = 2.
%t Array[Floor[E^#/#^E] &, 33] (* _Michael De Vlieger_, Jul 01 2018 *)
%o (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
%Y Cf. A000149, A061293.
%K nonn
%O 1,1
%A _Henry Bottomley_, Jul 02 2001
|
