A070790 Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 3.
3, 6, 12, 15, 21, 24, 30, 33, 39, 42, 48, 51, 57, 60, 66, 69, 75, 78, 84, 87, 93, 96, 132, 159, 165, 177, 219, 231, 258, 264, 276, 318, 330, 357, 363, 375, 417, 429, 456, 462, 474, 516, 528, 555, 561, 573, 579, 615, 627, 654, 660, 672, 678, 699, 714, 726, 753
Offset: 1
Examples
The trajectory of 6 is part of the trajectory of 3; the trajectory of 375 joins the trajectory of 3 at 9768 after 3 steps.
Programs
-
Mathematica
limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 3, limit]; Select[Range[753], Intersection[NestList[ # + IntegerReverse[#] &, #, limit], x] != {} &] (* Robert Price, Oct 20 2019 *)