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