A268476 Balanced evil primes: primes with an even number of runs of 1's in their binary expansion.
5, 11, 13, 17, 19, 23, 29, 47, 59, 61, 67, 71, 79, 97, 103, 113, 131, 149, 173, 181, 191, 193, 199, 223, 227, 239, 241, 251, 257, 263, 271, 277, 293, 331, 337, 347, 349, 373, 383, 421, 449, 463, 479, 487, 499, 503, 509, 557, 587, 593, 599, 601, 613, 617, 619
Offset: 1
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..10000
- Vladimir Shevelev, Two analogs of Thue-Morse sequence, arXiv:1603.04434 [math.NT], 2016.
Programs
-
Mathematica
Select[Prime@ Range@ 120, EvenQ@ Length[Split@ IntegerDigits[#, 2] /. {0, _} -> Nothing] &] (* Michael De Vlieger, Feb 08 2016 *)
-
Python
from sympy import prime A268476_list = [p for p in (prime(i) for i in range(1,10**6)) if not len(list(filter(bool,format(p,'b').split('0')))) % 2] # Chai Wah Wu, Mar 01 2016
Extensions
More terms from Peter J. C. Moses, Feb 05 2016
Comments