%I #15 Jun 28 2015 15:21:25
%S 0,0,1,3,10,33,105,349,1193,4189,15070,55426,207981,794847,3089232,
%T 12194590,48836860,198228772,814795476,3388909439,14252884342,
%U 60577219672,260038762861,1126860038414,4927261126518,21730146696443
%N a(n) = floor(log(n)^n).
%H Harry J. Smith, <a href="/A061566/b061566.txt">Table of n, a(n) for n=1..200</a>
%t Table[Floor[Log[n]^n],{n,30}] (* _Harvey P. Dale_, Dec 31 2011 *)
%o (PARI) { default(realprecision, 1000); for (n=1, 200, write("b061566.txt", n, " ", floor(log(n)^n)) ) } \\ _Harry J. Smith_, Jul 24 2009
%Y Cf. A062460.
%K easy,nonn
%O 1,4
%A _Leroy Quet_, May 18 2001
|