login
Integer part of log(n^n)^log(1 + log(n)).
1

%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