A062421 Integer part of log(n!)^log(n).

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

Links

Table of n, a(n) for n=1..35.

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

Adjacent sequences: A062418 A062419 A062420 * A062422 A062423 A062424

Keyword

nonn,easy

Author

Olivier Gérard, Jun 23 2001

Extensions

Previous Mathematica program replaced by Harvey P. Dale, May 15 2021

Status

approved