A062276 - OEIS

%I #15 Jul 02 2018 01:54:04

%S 0,0,0,1,1,2,2,2,3,3,3,4,4,4,5,5,6,6,6,7,7,7,8,8,9,9,9,10,10,10,11,11,

%T 11,12,12,13,13,13,14,14,14,15,15,16,16,16,17,17,17,18,18,18,19,19,20,

%U 20,20,21,21,21,22,22,22,23,23,24,24,24,25,25,25,26,26,27,27,27,28,28

%N a(n) = floor(n^(n+1) / (n+1)^n).

%C a(n) is close to n/e (cf. A032634).

%H Harry J. Smith, <a href="/A062276/b062276.txt">Table of n, a(n) for n = 0..1000</a>

%e a(2) = floor(2^3/3^2) = floor(8/9) = 0.

%p seq(floor(n^(n+1)/(n+1)^n),n=0..90); # _Muniru A Asiru_, Jul 01 2018

%t Array[Floor[#^(# + 1)/(# + 1)^#] &, 78, 0] (* _Michael De Vlieger_, Jul 01 2018 *)

%o (PARI) { default(realprecision, 50); for (n=0, 1000, write("b062276.txt", n, " ", floor(n^(n + 1) / (n + 1)^n)) ) } \\ _Harry J. Smith_, Aug 03 2009

%o (GAP) List([0..90],n->Int(n^(n+1)/(n+1)^n)); # _Muniru A Asiru_, Jul 01 2018

%Y Cf. A032634. Cf. A000169, A007778, A007925.

%K nonn

%O 0,6

%A _Henry Bottomley_, Jul 02 2001