A033655 Trajectory of 19 under map x->x + (x-with-digits-reversed).
19, 110, 121, 242, 484, 968, 1837, 9218, 17347, 91718, 173437, 907808, 1716517, 8872688, 17735476, 85189247, 159487405, 664272356, 1317544822, 3602001953, 7193004016, 13297007933, 47267087164
Offset: 0
Programs
-
Mathematica
NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&,19,30] (* Harvey P. Dale, Jan 24 2015 *) NestList[#+IntegerReverse[#]&,19,30] (* Harvey P. Dale, Dec 18 2023 *)