A062427 Integer part of log(n^n)^(1 - 1/n).

1, 1, 2, 3, 5, 7, 9, 11, 14, 16, 19, 22, 25, 28, 31, 34, 38, 41, 45, 48, 52, 56, 59, 63, 67, 71, 75, 79, 83, 87, 91, 95, 99, 104, 108, 112, 117, 121, 125, 130, 134, 139, 143, 148, 152, 157, 162, 166, 171, 176, 180, 185, 190, 195, 199, 204, 209, 214, 219, 224, 229

Offset

1,3

Links

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

Mathematica

Join[{1}, Table[Floor[Log[n^n]^(1-1/n)], {n, 2, 70}]] (* Harvey P. Dale, Apr 15 2020 *)

Crossrefs

Cf. A062428.

Sequence in context: A265384 A039786 A102422 * A127721 A292620 A241907

Adjacent sequences: A062424 A062425 A062426 * A062428 A062429 A062430

Keyword

nonn,easy

Author

Olivier Gérard, Jun 23 2001

Extensions

Previous Mathematica program replaced by Harvey P. Dale, Apr 15 2020

Status

approved