OFFSET
1,1
COMMENTS
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..2000
Vladimir Shevelev, Two analogs of Thue-Morse sequence, arXiv:1603.04434 [math.NT], 2016.
MATHEMATICA
lim = 1500; s = Select[Prime@ Range@ lim, EvenQ@ Length[Split@ IntegerDigits[#, 2] /. {0, ___} -> Nothing] &]; t = Select[Prime@ Range@ lim, OddQ@ Length[Split@ IntegerDigits[#, 2] /. {0, ___} -> Nothing] &] ; Select[Prime@ Range@ lim, Count[s, p_ /; p <= #] == Count[t, q_ /; q <= #] &] (* Michael De Vlieger, Feb 08 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Feb 05 2016
EXTENSIONS
More terms from Peter J. C. Moses, Feb 05 2016
STATUS
approved