OFFSET
1,1
COMMENTS
This is conjectured to be the complete list. There are no other examples smaller than 16773120.
MATHEMATICA
nn = 10^5; Complement[Range[2, nn, 2], Union@ Map[Total, Rest@ Tuples[{0}~Join~#, 3]] &@ Select[Range@ nn, Function[k, Reverse[# /. {1 -> 0, 0 -> 1}] == # &@ IntegerDigits[k, 2]]]] (* Michael De Vlieger, Nov 23 2016, after Harvey P. Dale at A035928 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jeffrey Shallit, Nov 23 2016
STATUS
approved