A033661 Trajectory of 31 under map x->x + (x-with-digits-reversed).
31, 44, 88, 176, 847, 1595, 7546, 14003, 44044, 88088, 176176, 847847, 1596595, 7553546, 14007103, 44177144, 88354288, 176599676, 853595347, 1597190705, 6668108656, 13236127322, 35608290553, 71117571206
Offset: 0
Programs
-
Mathematica
NestList[#+IntegerReverse[#]&,31,30] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 23 2016 *)