OFFSET
1,2
COMMENTS
Primes in the sequence are not in A065049.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
aQ[n_] := Module[{d = Reverse[IntegerDigits[n, 2]]}, e = Total@d[[1 ;; -1 ;; 2]]; o = Total@d[[2 ;; -1 ;; 2]]; e > o && MemberQ[{1, 2}, Mod[e - o, 6]]]; Select[Range[1, 260, 2], aQ] (* Amiram Eldar, Sep 12 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Dec 13 2008
EXTENSIONS
More terms from Amiram Eldar, Sep 12 2019
STATUS
approved