OFFSET
1,2
MATHEMATICA
Select[Table[n, {n, 100000}], Length[StringPosition[ToString[ # ], ToString[Plus @@ IntegerDigits[ # ]]]] > 0 && ToString[ # ] == StringReverse[ToString[ # ]] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Tanya Khovanova, Sep 03 2006
STATUS
approved