A095766 Number of primes whose binary expansion begins '11' (A080166) in range ]2^n,2^(n+1)].
1, 1, 1, 2, 3, 7, 11, 21, 37, 67, 125, 227, 431, 787, 1491, 2812, 5296, 10055, 19079, 36343, 69398, 132661, 254122, 488028, 937994, 1806147, 3482463, 6722625, 12994889, 25145151, 48709705, 94451647, 183312229, 356089665, 692285717
Offset: 1
Keywords
Links
Programs
-
Mathematica
f[n_] := PrimePi[2^(n + 1)] - PrimePi[2^n + 2^(n - 1) - 1]; Array[f, 35] (* Robert G. Wilson v *)
-
PARI
a(n)=primepi(2^(n+1))-primepi(2^n+2^(n-1)-1) \\ Charles R Greathouse IV, Sep 25 2012
Extensions
a(34) and a(35) from Robert G. Wilson v, Jan 24 2006
Comments