OFFSET
0,2
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]]; a = {}; Do [If[revadd[revsub[ x, n], n] == x, AppendTo[a, x]], {x, START, FINISH}]; a
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Dylan Hamilton, Aug 15 2010
STATUS
approved