OFFSET
1,1
COMMENTS
It appears that the first differences of this sequence are always a multiple of 3. - Robert Price, Oct 20 2019
EXAMPLE
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.
MATHEMATICA
limit = 10^2; x = NestList[ # + IntegerReverse[#] &, 111, limit];
Select[Range[3774],
Intersection[NestList[ # + IntegerReverse[#] &, #, limit],
x] != {} &] (* Robert Price, Oct 20 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, May 07 2002
STATUS
approved