A070798 Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 111.
111, 123, 147, 210, 222, 246, 321, 345, 420, 444, 543, 642, 741, 789, 840, 888, 987, 1002, 1005, 1596, 1686, 1776, 1866, 1956, 2001, 2004, 2595, 2685, 2775, 2865, 2955, 3000, 3003, 3009, 3099, 3189, 3279, 3369, 3459, 3549, 3594, 3639, 3684, 3729, 3774
Offset: 1
Examples
The trajectory of 222 is part of the trajectory of 111; the trajectory of 2004 joins the trajectory of 111 at 66066 after 7 steps.
Programs
-
Mathematica
limit = 10^2; x = NestList[ # + IntegerReverse[#] &, 111, limit]; Select[Range[3774], Intersection[NestList[ # + IntegerReverse[#] &, #, limit], x] != {} &] (* Robert Price, Oct 20 2019 *)
Comments