A066149 Primes with an odd number of 0's in binary expansion.
2, 5, 11, 13, 17, 23, 29, 37, 41, 47, 59, 61, 71, 83, 89, 101, 113, 131, 137, 151, 157, 167, 173, 179, 181, 191, 193, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 277, 281, 293, 311, 317, 337, 347, 349, 353, 359, 373, 383, 389, 401, 449, 461
Offset: 1
Examples
17 is in the sequence because 17 is a prime and 17 = 10001_2. '10001' has three 0's. - _Indranil Ghosh_, Feb 06 2017
Links
- Indranil Ghosh, Table of n, a(n) for n = 1..20000 (terms 1..1000 from T. D. Noe)
Programs
-
Mathematica
Select[ Prime[ Range[ PrimePi[ 1000 ] ] ], OddQ[ Count[ IntegerDigits[ #, 2 ], 0 ] ]& ]
-
PARI
forprime(p=2, 10^3, if( #select(x->x==0, digits(p, 2))%2==1, print1(p, ", "))); \\ Joerg Arndt, Jun 16 2018
Extensions
More terms from Vladeta Jovovic and Klaus Brockhaus, Dec 13 2001