OFFSET
1,1
EXAMPLE
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.
MATHEMATICA
limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 9, limit];
Select[Range[2124],
Intersection[NestList[ # + IntegerReverse[#] &, #, limit],
x] != {} &] (* Robert Price, Oct 20 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, May 07 2002
STATUS
approved