A060508 - OEIS

%I #13 Dec 08 2021 12:07:36

%S 2,1,2,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,4,5,5,5,5,5,5,5,6,6,6,6,6,6,

%T 6,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,9,9,9,9,9,9,9,10,10,10,10,10,10,10,

%U 10,11,11,11,11,11,11,11,11,12,12,12,12,12,12,12,12,13,13,13,13,13,13,13

%N Exponent of largest power of n < 2^n.

%F a(n) = floor(n/log(2, n)); n^a(n) <= 2^n <= n^(1+a(n)).

%e For n = 10, 1000 < 1024 < 10000, so a(10) = 3; a(1) is indeterminate, since 1^j < 2^1.

%t Table[Floor[n/Log[2, n]],{n,2,89}] (* _Stefano Spezia_, Dec 07 2021 *)

%Y Cf. A000079, A003992.

%K easy,nonn

%O 2,1

%A _Labos Elemer_, Apr 11 2001