OFFSET
0,3
COMMENTS
A006995 is a subsequence of this sequence, because a palindrome plus its reverse is equivalent to itself times 2, which in base 2 is equivalent to appending a zero to the number. This zero is eliminated by the second reversal, leaving the reverse of the original number, which, since it is a palindrome, is the equivalent of the number itself, and 2x - x = x.
MATHEMATICA
rev[x_, b_] := FromDigits[Reverse[IntegerDigits[x, b]], b]; revadd[x_, b_] := rev[x, b] + x; revsub[x_, b_] := Abs[x - rev[x, b]]; s = {}; Do [If[revsub[revadd[ x, 2], 2] == x, AppendTo[s, x]], {x, START, FINISH}]; s
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Dylan Hamilton, Aug 15 2010
STATUS
approved