OFFSET
0,2
MATHEMATICA
Take[#, 66] &@ Union@ Table[FromDigits[RotateRight@ #, 2] + FromDigits[RotateLeft@ #, 2] &@ IntegerDigits[n, 2], {n, 0, 10^3}] (* Michael De Vlieger, May 17 2016 *)
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, May 15 2016
STATUS
approved