login
A062453
Integer part of log(n!)^sqrt(n).
1
1, 0, 0, 2, 10, 33, 100, 290, 795, 2098, 5353, 13270, 32058, 75681, 174982, 396969, 885035, 1941744, 4197219, 8947798, 18829981, 39148311, 80467194, 163624700, 329349740, 656560785, 1296916079, 2539570658, 4931698805, 9501297338
OFFSET
0,4
MATHEMATICA
Join[{1}, Table[Floor[Log[n!]^Sqrt[n]], {n, 30}]] (* Harvey P. Dale, Jul 27 2022 *)
CROSSREFS
Cf. A062454.
Sequence in context: A236921 A316644 A080668 * A036369 A294667 A240407
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Previous Mathematica program replaced by Harvey P. Dale, Jul 27 2022
STATUS
approved