|
|
A226643
|
|
Numbers n such that the binary XOR of the divisors of n (A178910) is a binary palindrome (A006995) and not a power of 2 (A000079).
|
|
0
|
|
|
81, 162, 169, 324, 338, 648, 676, 1296, 1352, 2401, 2592, 2704, 3249, 4802, 5184, 5408, 6498, 9604, 10368, 10816, 12996, 19208, 20736, 21632, 25992, 38416, 41472, 43264, 51984, 76832, 82944, 86528, 103968, 112225, 153664, 165888, 173056, 194481
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|