A062433 Integer part of log(n^n)^log(1 + log(n)).

1, 1, 2, 4, 7, 11, 16, 23, 32, 42, 54, 69, 86, 105, 128, 153, 182, 214, 250, 289, 333, 381, 434, 491, 553, 621, 694, 772, 857, 947, 1044, 1148, 1259, 1376, 1501, 1634, 1774, 1923, 2080, 2246, 2420, 2604, 2797, 3000, 3213, 3436, 3670, 3915, 4170

Offset

1,3

Links

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

Mathematica

Join[{1}, Table[Floor[Log[n^n]^Log[1+Log[n]]], {n, 2, 50}]] (* Harvey P. Dale, Mar 04 2023 *)

Crossrefs

Cf. A062434.

Sequence in context: A196722 A181120 A000601 * A317910 A065095 A005253

Adjacent sequences: A062430 A062431 A062432 * A062434 A062435 A062436

Keyword

nonn,easy

Author

Olivier Gérard, Jun 23 2001

Extensions

Previous Mathematica program replaced by Harvey P. Dale, Mar 04 2023

Status

approved