%I #7 Aug 14 2018 16:10:28
%S 0,0,1,7,24,59,123,228,393,634,976,1444,2066,2877,3912,5212,6820,8786,
%T 11161,14002,17370,21331,25953,31312,37486,44560,52623,61767,72093,
%U 83705,96711,111226,127371,145270,165056,186864,210838,237125,265881
%N Integer part of log(n^n)^(1 + log(1 + log(n))).
%t Join[{0},Table[Floor[Log[n^n]^(1+Log[1+Log[n]])],{n,40}]] (* _Harvey P. Dale_, Aug 14 2018 *)
%Y Cf. A062450.
%K nonn,easy
%O 0,4
%A _Olivier GĂ©rard_, Jun 23 2001
%E Mathematica program replaced by _Harvey P. Dale_, Aug 14 2018
|