login
A062414
Nearest integer to log(n!)^(1 - 1/n).
1
1, 1, 1, 2, 4, 5, 6, 8, 10, 12, 13, 16, 18, 20, 22, 25, 27, 30, 32, 35, 38, 41, 43, 46, 49, 52, 55, 58, 62, 65, 68, 71, 74, 78, 81, 84, 88, 91, 95, 98, 102, 105, 109, 112, 116, 120, 123, 127, 131, 134, 138, 142, 146, 150, 153, 157, 161, 165, 169, 173, 177, 181, 185
OFFSET
1,4
MATHEMATICA
Join[{1}, Table[Round[Log[n!]^(1-1/n)], {n, 2, 70}]] (* Harvey P. Dale, Aug 11 2021 *)
CROSSREFS
Cf. A062413.
Sequence in context: A026437 A026441 A047434 * A324694 A249025 A065502
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Prior Mathematica program replaced by Harvey P. Dale, Aug 11 2021
STATUS
approved