OFFSET
0,2
MATHEMATICA
Map[FromDigits[IntegerDigits[#, 2]] &, Select[Range[0, 10^4], BitXor[16*#, 17*#] == 33*# &]] (* Paolo Xausa, Sep 28 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Feb 01 2006
STATUS
approved