|
%I #7 Mar 04 2023 16:48:04
%S 1,1,2,4,7,11,16,23,32,42,54,69,86,105,128,153,182,214,250,289,333,
%T 381,434,491,553,621,694,772,857,947,1044,1148,1259,1376,1501,1634,
%U 1774,1923,2080,2246,2420,2604,2797,3000,3213,3436,3670,3915,4170
%N Integer part of log(n^n)^log(1 + log(n)).
%t Join[{1},Table[Floor[Log[n^n]^Log[1+Log[n]]],{n,2,50}]] (* _Harvey P. Dale_, Mar 04 2023 *)
%Y Cf. A062434.
%K nonn,easy
%O 1,3
%A _Olivier Gérard_, Jun 23 2001
%E Previous Mathematica program replaced by _Harvey P. Dale_, Mar 04 2023
|
