OFFSET
1,2
COMMENTS
MATHEMATICA
fQ[n_] := Union@ IntegerDigits[ Fold[ BitXor[#1, #2] &, 0, Divisors@ n], 2] == {1}; Select[ Range@ 1000000000, fQ] (* Robert G. Wilson v, Aug 22 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Jul 06 2013
STATUS
approved