This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A226643 #11 Aug 20 2013 13:25:21 %S A226643 81,162,169,324,338,648,676,1296,1352,2401,2592,2704,3249,4802,5184, %T A226643 5408,6498,9604,10368,10816,12996,19208,20736,21632,25992,38416,41472, %U A226643 43264,51984,76832,82944,86528,103968,112225,153664,165888,173056,194481 %N 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). %C A226643 A takeoff of A227843. %t A226643 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] %Y A226643 Cf. A000079, A006995, A178910, A227843. %K A226643 nonn,base %O A226643 1,1 %A A226643 _Robert G. Wilson v_, Aug 18 2013