A062413 - OEIS

%I #10 Nov 04 2017 15:30:07

%S 1,0,1,2,3,4,6,7,9,11,13,15,17,20,22,24,27,29,32,35,37,40,43,46,49,52,

%T 55,58,61,64,67,71,74,77,80,84,87,91,94,98,101,105,108,112,115,119,

%U 123,126,130,134,138,141,145,149,153,157,161,164,168,172,176,180,184

%N Integer part of log(n!)^(1 - 1/n).

%H Harry J. Smith, <a href="/A062413/b062413.txt">Table of n, a(n) for n=1..1000</a>

%t Join[{1},Table[Floor[Log[n!]^(1-1/n)],{n,2,70}]] (* _Harvey P. Dale_, Nov 04 2017 *)

%o (PARI) { default(realprecision, 50); f=1; for (n=1, 1000, f*=n; write("b062413.txt", n, " ", floor(log(f)^(1 - 1/n))) ) } \\ _Harry J. Smith_, Aug 07 2009

%Y Cf. A062414.

%K nonn,easy

%O 1,4

%A _Olivier Gérard_, Jun 23 2001

%E Prior Mathematica program replaced by _Harvey P. Dale_, Nov 04 2017