|
Search: id:A066149
|
|
|
| A066149 |
|
Primes with an odd number of 0's in binary expansion. |
|
+0
4
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Select[ Prime[ Range[ PrimePi[ 1000 ] ] ], OddQ[ Count[ IntegerDigits[ #, 2 ], 0 ] ]& ]
|
|
PROGRAM
|
(PARI): a066149(m) = local(p, v, z); forprime(p=2, m, v=binary(p); z=0; for(j=1, matsize(v)[2], if(v[j]==0, z++)); if(z%2==1, print1(p, ", "))) a066149(500)
|
|
CROSSREFS
|
Cf. A066148, A027699, A027697.
Sequence in context: A138837 A038899 A118753 this_sequence A019387 A019337 A086518
Adjacent sequences: A066146 A066147 A066148 this_sequence A066150 A066151 A066152
|
|
KEYWORD
|
nonn,easy,base
|
|
AUTHOR
|
R. K. Guy (rkg(AT)cpsc.ucalgary.ca), Dec 13, 2001
|
|
EXTENSIONS
|
More terms from Vladeta Jovovic (vladeta(AT)Eunet.yu) and Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Dec 13 2001
|
|
|
Search completed in 0.002 seconds
|
