|
|
MATHEMATICA
| Select[Table[ n, {n, 10000000}], # == Plus @@ ToExpression[ Flatten[Table[ StringTake[StringReverse[ToString[ # ]], {i, j}], {i, StringLength[ToString[ # ]]}, {j, i, StringLength[ToString[ # ]]}]]] - ToExpression[StringReverse[ToString[ # ]]] &]
|