|
%I #8 Apr 15 2020 13:39:08
%S 1,1,2,3,5,7,9,11,14,16,19,22,25,28,31,34,38,41,45,48,52,56,59,63,67,
%T 71,75,79,83,87,91,95,99,104,108,112,117,121,125,130,134,139,143,148,
%U 152,157,162,166,171,176,180,185,190,195,199,204,209,214,219,224,229
%N Integer part of log(n^n)^(1 - 1/n).
%t Join[{1},Table[Floor[Log[n^n]^(1-1/n)],{n,2,70}]] (* _Harvey P. Dale_, Apr 15 2020 *)
%Y Cf. A062428.
%K nonn,easy
%O 1,3
%A _Olivier Gérard_, Jun 23 2001
%E Previous Mathematica program replaced by _Harvey P. Dale_, Apr 15 2020
|
