A062415 Integer part of log(n)^(n - 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

Links

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

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

Adjacent sequences: A062412 A062413 A062414 * A062416 A062417 A062418

Keyword

nonn,easy

Author

Olivier Gérard, Jun 23 2001

Extensions

Mathematica program fixed by Harvey P. Dale, Apr 23 2020

Status

approved