A062414 Nearest integer to log(n!)^(1 - 1/n).

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

Links

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

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

Adjacent sequences: A062411 A062412 A062413 * A062415 A062416 A062417

Keyword

nonn,easy

Author

Olivier Gérard, Jun 23 2001

Extensions

Prior Mathematica program replaced by Harvey P. Dale, Aug 11 2021

Status

approved