login
A062427
Integer part of log(n^n)^(1 - 1/n).
1
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
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: A039786 A377852 A102422 * A127721 A292620 A241907
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Previous Mathematica program replaced by Harvey P. Dale, Apr 15 2020
STATUS
approved