|
%I #7 Oct 01 2021 14:34:32
%S 0,1,2,5,8,12,15,20,24,28,33,37,42,46,51,56,60,65,70,74,79,84,88,93,
%T 98,103,107,112,117,122,127,131,136,141,146,151,156,160,165,170,175,
%U 180,185,190,195,200,205,210,215,220,225,230,235,240,245,250,255,260
%N Nearest integer to log(n!)^(1 + log(n)/n).
%t Table[Round[Log[n!]^(1+Log[n]/n)],{n,60}] (* _Harvey P. Dale_, Oct 01 2021 *)
%Y Cf. A062467.
%K nonn,easy
%O 1,3
%A _Olivier Gérard_, Jun 23 2001
%E Previous Mathematica program replaced by _Harvey P. Dale_, Oct 01 2021
|
