%I #7 Aug 11 2021 11:50:35
%S 1,1,1,2,4,5,6,8,10,12,13,16,18,20,22,25,27,30,32,35,38,41,43,46,49,
%T 52,55,58,62,65,68,71,74,78,81,84,88,91,95,98,102,105,109,112,116,120,
%U 123,127,131,134,138,142,146,150,153,157,161,165,169,173,177,181,185
%N Nearest integer to log(n!)^(1 - 1/n).
%t Join[{1},Table[Round[Log[n!]^(1-1/n)],{n,2,70}]] (* _Harvey P. Dale_, Aug 11 2021 *)
%Y Cf. A062413.
%K nonn,easy
%O 1,4
%A _Olivier GĂ©rard_, Jun 23 2001
%E Prior Mathematica program replaced by _Harvey P. Dale_, Aug 11 2021