A070792 Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 7.
7, 14, 19, 23, 28, 29, 32, 37, 38, 41, 46, 47, 49, 50, 55, 56, 58, 64, 65, 67, 73, 74, 76, 82, 83, 85, 89, 91, 92, 94, 98, 110, 121, 136, 143, 187, 220, 235, 242, 286, 334, 341, 385, 433, 440, 484, 532, 569, 583, 631, 668, 682, 719, 730, 767, 781, 818, 866, 869
Offset: 1
Examples
The trajectory of 14 is part of the trajectory of 7; the trajectory of 235 joins the trajectory of 7 at 8872688 after 13 steps.
Programs
-
Mathematica
limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 7, limit]; Select[Range[869], Intersection[NestList[ # + IntegerReverse[#] &, #, limit], x] != {} &] (* Robert Price, Oct 20 2019 *)