A070794 Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 100.
100, 101, 103, 107, 188, 193, 200, 202, 206, 287, 292, 299, 301, 305, 386, 391, 398, 400, 404, 485, 490, 497, 503, 584, 596, 602, 683, 695, 701, 709, 782, 794, 800, 808, 881, 893, 907, 980, 992, 1034, 1069, 1076, 1124, 1159, 1166, 1214, 1249, 1256, 1291
Offset: 1
Examples
The trajectory of 101 is part of the trajectory of 100; the trajectory of 485 joins the trajectory of 100 at 61105 after 5 steps.
Programs
-
Mathematica
limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 100, limit]; Select[Range[1291], Intersection[NestList[ # + IntegerReverse[#] &, #, limit], x] != {} &] (* Robert Price, Oct 20 2019 *)