login
A062421
Integer part of log(n!)^log(n).
1
1, 0, 1, 4, 12, 29, 64, 135, 270, 518, 956, 1707, 2957, 4988, 8217, 13247, 20939, 32509, 49646, 74675, 110755, 162144, 234519, 335392, 474616, 665019, 923187, 1270416, 1733880, 2348048, 3156391, 4213447, 5587282, 7362443, 9643463
OFFSET
1,4
MATHEMATICA
Join[{1}, Table[Floor[Log[n!]^Log[n]], {n, 2, 40}]] (* Harvey P. Dale, May 15 2021 *)
CROSSREFS
Cf. A062422.
Sequence in context: A227085 A192978 A260546 * A036889 A036895 A309297
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Previous Mathematica program replaced by Harvey P. Dale, May 15 2021
STATUS
approved