|
%I #7 Feb 08 2024 19:03:23
%S 0,0,1,2,3,4,5,6,7,8,9,11,12,14,16,17,19,21,23,25,27,29,31,33,35,37,
%T 39,42,44,47,49,51,54,56,59,62,64,67,70,72,75,78,81,84,87,89,92,95,98,
%U 101,104,108,111,114,117,120,123,127,130,133,136,140,143,146,150,153
%N Integer part of log(n!)^(n^(-1/n)).
%t Table[Floor[Log[n!]^n^(-1/n)],{n,70}] (* _Harvey P. Dale_, Feb 08 2024 *)
%Y Cf. A062462.
%K nonn,easy
%O 1,4
%A _Olivier Gérard_, Jun 23 2001
%E Previous Mathematica program edited and replaced by _Harvey P. Dale_, Feb 08 2024
|
