OFFSET
1,4
LINKS
Harry J. Smith, Table of n, a(n) for n=1..1000
MATHEMATICA
Join[{1}, Table[Floor[Log[n!]^(1-1/n)], {n, 2, 70}]] (* Harvey P. Dale, Nov 04 2017 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Prior Mathematica program replaced by Harvey P. Dale, Nov 04 2017
STATUS
approved