OFFSET
1,1
COMMENTS
They are 2,5,7,13,17,19,31,37,61,67,73,79,...
and 3,11,23,29,41,43,47,53,59,71,83,89,...
LINKS
Vladimir Shevelev, Two analogs of Thue-Morse sequence, arXiv:1603.04434 [math.NT], 2016.
Eric Weisstein's World of Mathematics, Negabinary
MATHEMATICA
aQ[n_] := EvenQ @ Total @ Rest @ Reverse @ Mod[NestWhileList[(# - Mod[#, 2])/-2 &, n, # != 0 &], 2]; s = {}; p = 2; c = 0; Do[If[aQ[p], c++, c--]; If[c == 0, AppendTo[s, p]]; p = NextPrime[p], {10^3}]; s (* Amiram Eldar, Sep 22 2019 after Michael De Vlieger at A268272 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Feb 27 2016
EXTENSIONS
More terms from Peter J. C. Moses, Feb 27 2016
More terms from Amiram Eldar, Sep 22 2019
STATUS
approved