A070793 Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 9.
9, 18, 27, 36, 45, 54, 63, 72, 81, 90, 99, 198, 297, 396, 495, 594, 693, 792, 891, 990, 1017, 1035, 1044, 1089, 1107, 1125, 1134, 1179, 1215, 1224, 1269, 1305, 1314, 1359, 1404, 1449, 1539, 1629, 1719, 1809, 1899, 1989, 2016, 2034, 2043, 2088, 2106, 2124
Offset: 1
Examples
The trajectory of 18 is part of the trajectory of 9; the trajectory of 1215 joins the trajectory of 9 at 40293 after 3 steps.
Programs
-
Mathematica
limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 9, limit]; Select[Range[2124], Intersection[NestList[ # + IntegerReverse[#] &, #, limit], x] != {} &] (* Robert Price, Oct 20 2019 *)