%I #7 Jan 31 2024 17:27:54
%S 0,0,0,2,9,23,50,94,164,269,418,623,899,1262,1728,2317,3051,3953,5049,
%T 6368,7939,9796,11973,14508,17441,20815,24676,29071,34052,39672,45988,
%U 53060,60950,69723,79450,90200,102050,115078,129366,144998,162063
%N Integer part of log(n!)^(1 + log(1 + log(1 + n))).
%t Table[Floor[Log[n!]^(1+Log[1+Log[1+n]])],{n,0,40}] (* _Harvey P. Dale_, Jan 31 2024 *)
%Y Cf. A062446.
%K nonn,easy
%O 0,4
%A _Olivier GĂ©rard_, Jun 23 2001
%E Previous Mathematica program replaced by _Harvey P. Dale_, Jan 31 2024