A269458 Primes p such that the numbers of negabinary evil primes and negabinary odious primes not exceeding p are equal (see comment).
3, 53, 61, 71, 89, 101, 107, 7121, 7129, 7159, 7187, 424891, 29739371, 29740511, 29740523, 29740723, 1844046469, 1844046481, 1844046517, 1844046571, 1844046629, 1844046679, 1844046733, 1844046793, 1844046851, 1844047357, 1844047421, 1844047501, 1845540199, 1847154073, 1847154109
Offset: 1
Links
- Vladimir Shevelev, Two analogs of Thue-Morse sequence, arXiv:1603.04434 [math.NT], 2016.
- Eric Weisstein's World of Mathematics, Negabinary
Programs
-
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 *)
Extensions
More terms from Peter J. C. Moses, Feb 27 2016
More terms from Amiram Eldar, Sep 22 2019
Comments