A070791 Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 5.
5, 10, 11, 13, 17, 20, 22, 26, 31, 35, 40, 44, 53, 62, 71, 79, 80, 88, 97, 115, 142, 158, 170, 176, 185, 214, 241, 257, 275, 284, 313, 329, 340, 356, 374, 383, 412, 428, 455, 469, 473, 482, 511, 527, 554, 568, 572, 581, 599, 610, 626, 649, 653, 667, 671, 680
Offset: 1
Examples
The trajectory of 10 is part of the trajectory of 5; the trajectory of 340 joins the trajectory of 5 at 88088 after 7 steps.
Programs
-
Mathematica
limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 5, limit]; Select[Range[680], Intersection[NestList[ # + IntegerReverse[#] &, #, limit], x] != {} &] (* Robert Price, Oct 20 2019 *)