OFFSET
1,1
COMMENTS
The least difference between consecutive binary self numbers is 2 (see Macris's proof at A010061).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
4 is a term since 4 and 6 = 4 + 2 are both binary self numbers.
MATHEMATICA
s[n_] := n + DigitCount[n, 2, 1]; m = 550; c = Complement[Range[m], Array[s, m]]; d = Differences[c]; ind = Position[d, 2] // Flatten; c[[ind]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Nov 27 2020
STATUS
approved