OFFSET
2,1
MATHEMATICA
Select[(FromDigits[#] + FromDigits[Reverse[#]]) & /@ IntegerDigits[Range[1000]], IntegerDigits[#] == Reverse[IntegerDigits[#]] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Morgan L. Owens, Nov 21 2014
STATUS
approved