A061052 Floor[log(n)^log(n)].

0, 1, 1, 2, 2, 3, 4, 5, 6, 8, 9, 11, 12, 14, 16, 19, 21, 24, 26, 29, 32, 35, 39, 43, 46, 50, 55, 59, 64, 69, 74, 79, 85, 90, 96, 103, 109, 116, 123, 130, 138, 145, 153, 162, 170, 179, 188, 198, 207, 217, 227, 238, 249, 260, 271, 283, 295, 308, 320, 334, 347, 361, 375

Offset

2,4

Links

Harry J. Smith, Table of n, a(n) for n = 2..1000

Mathematica

Table[Floor[Log[n]^Log[n]], {n, 2, 70}] (* Harvey P. Dale, Jan 18 2013 *)

Prog

(PARI) for (n=2, 1000, L=log(n); write("b061052.txt", n, " ", floor(L^L))) \\ Harry J. Smith, Jul 17 2009
(PARI) a(n)=n^log(log(n))\1 \\ Charles R Greathouse IV, Sep 04 2015
(PARI) a(n)=(x->x^x\1)(log(n)) \\ Charles R Greathouse IV, Sep 04 2015

Crossrefs

Sequence in context: A011872 A056822 A062419 * A088670 A091581 A014591

Adjacent sequences: A061049 A061050 A061051 * A061053 A061054 A061055

Keyword

easy,nonn

Author

Leroy Quet, May 26 2001

Status

approved