login
A062415
Integer part of log(n)^(n - 1).
1
1, 0, 1, 2, 6, 18, 54, 168, 543, 1819, 6284, 22305, 81085, 301185, 1140759, 4398268, 17237268, 68582448, 276723505, 1131245762, 4681484414, 19597666672, 82933899715, 354575503930, 1530739734801, 6669583434025, 29316248173094
OFFSET
1,4
MATHEMATICA
Join[{1}, Table[Floor[Log[n]^((1-1/n)*n)], {n, 2, 30}]]
CROSSREFS
Cf. A062416.
Sequence in context: A192338 A114464 A007206 * A363432 A086680 A275872
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jun 23 2001
EXTENSIONS
Mathematica program fixed by Harvey P. Dale, Apr 23 2020
STATUS
approved