|
%I #7 Jul 27 2022 15:10:55
%S 1,0,0,2,10,33,100,290,795,2098,5353,13270,32058,75681,174982,396969,
%T 885035,1941744,4197219,8947798,18829981,39148311,80467194,163624700,
%U 329349740,656560785,1296916079,2539570658,4931698805,9501297338
%N Integer part of log(n!)^sqrt(n).
%t Join[{1},Table[Floor[Log[n!]^Sqrt[n]],{n,30}]] (* _Harvey P. Dale_, Jul 27 2022 *)
%Y Cf. A062454.
%K nonn,easy
%O 0,4
%A _Olivier Gérard_, Jun 23 2001
%E Previous Mathematica program replaced by _Harvey P. Dale_, Jul 27 2022
|
