A098388 a(n) = floor(log_2(prime(n))).
1, 1, 2, 2, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9
Offset: 1
Links
- T. D. Noe, Table of n, a(n) for n = 1..10000
Programs
-
Maple
map(ilog2, select(isprime,[2,seq(2*i+1,i=1..1000)])); # Robert Israel, Jun 08 2015
-
Mathematica
Floor[Log[2, Prime[Range[105]]]] (* data *) (* parameter changed by Hartmut F. W. Hoft, Jun 02 2015 *)
-
PARI
a(n) = logint(prime(n), 2); \\ Michel Marcus, Sep 17 2017
-
Python
from sympy import prime def A098388(n): return prime(n).bit_length()-1 # Chai Wah Wu, Nov 19 2024
Comments