A061052 - OEIS

%I #13 Sep 04 2015 10:48:27

%S 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,

%T 55,59,64,69,74,79,85,90,96,103,109,116,123,130,138,145,153,162,170,

%U 179,188,198,207,217,227,238,249,260,271,283,295,308,320,334,347,361,375

%N Floor[log(n)^log(n)].

%H Harry J. Smith, <a href="/A061052/b061052.txt">Table of n, a(n) for n = 2..1000</a>

%t Table[Floor[Log[n]^Log[n]],{n,2,70}] (* _Harvey P. Dale_, Jan 18 2013 *)

%o (PARI) for (n=2, 1000, L=log(n); write("b061052.txt", n, " ", floor(L^L))) \\ _Harry J. Smith_, Jul 17 2009

%o (PARI) a(n)=n^log(log(n))\1 \\ _Charles R Greathouse IV_, Sep 04 2015

%o (PARI) a(n)=(x->x^x\1)(log(n)) \\ _Charles R Greathouse IV_, Sep 04 2015

%K easy,nonn

%O 2,4

%A _Leroy Quet_, May 26 2001