OFFSET
10,1
MATHEMATICA
With[{n=50}, (FromDigits[#] + FromDigits[Reverse[#]]) & /@ Select[IntegerDigits[Range[n]], # != Reverse[#] &]]
Table[If[n==IntegerReverse[n], Nothing, n+IntegerReverse[n]], {n, 100}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 29 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Morgan L. Owens, Nov 21 2014
STATUS
approved