OFFSET
0,4
MATHEMATICA
Table[Floor[Log[n!]^(1+Log[1+Log[n]])], {n, 0, 40}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Mathematica program corrected by Harvey P. Dale, Jul 18 2024
STATUS
approved