%I #7 Sep 15 2021 12:02:40
%S 0,0,2,9,29,68,140,257,437,699,1068,1569,2232,3093,4187,5556,7246,
%T 9305,11787,14750,18255,22370,27164,32714,39100,46407,54725,64150,
%U 74781,86724,100089,114993,131557,149908,170178,192505,217035,243915
%N Nearest integer to log(n^n)^(1 + log(1 + log(1 + n))).
%t Join[{0},Table[Round[Log[n^n]^(1+Log[1+Log[1+n]])],{n,40}]] (* _Harvey P. Dale_, Sep 15 2021 *)
%Y Cf. A062451.
%K nonn,easy
%O 0,3
%A _Olivier GĂ©rard_, Jun 23 2001
%E Previous Mathematica program replaced by _Harvey P. Dale_, Sep 15 2021
|