|
%I #8 May 15 2021 18:13:38
%S 1,0,1,4,12,29,64,135,270,518,956,1707,2957,4988,8217,13247,20939,
%T 32509,49646,74675,110755,162144,234519,335392,474616,665019,923187,
%U 1270416,1733880,2348048,3156391,4213447,5587282,7362443,9643463
%N Integer part of log(n!)^log(n).
%t Join[{1},Table[Floor[Log[n!]^Log[n]],{n,2,40}]] (* _Harvey P. Dale_, May 15 2021 *)
%Y Cf. A062422.
%K nonn,easy
%O 1,4
%A _Olivier Gérard_, Jun 23 2001
%E Previous Mathematica program replaced by _Harvey P. Dale_, May 15 2021
|
