login
A061052
Floor[log(n)^log(n)].
2
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
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
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, May 26 2001
STATUS
approved