OFFSET
1,1
COMMENTS
A takeoff of A227843.
MATHEMATICA
f[n_] := Fold[ BitXor[#1, #2] &, 0, Divisors@ n]; palQ[n_Integer, base_Integer] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse@ idn]; fQ[n_] := palQ[ f@ n, 2] && ! IntegerQ@ Log2@ n; Select[ Range@ 200000, fQ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Aug 18 2013
STATUS
approved