%I #10 Oct 21 2019 02:35:09
%S 102,105,150,156,201,204,255,300,303,309,354,402,408,453,501,507,552,
%T 600,606,609,651,705,708,750,804,807,903,906,1032,1065,1122,1155,1212,
%U 1245,1290,1302,1335,1380,1425,1470,1515,1560,1605,1650,1740,1830,1896
%N Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 102.
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%e The trajectory of 303 is part of the trajectory of 102; the trajectory of 750 joins the trajectory of 102 at 6666 after 3 steps.
%t limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 102, limit];
%t Select[Range[1896],
%t Intersection[NestList[ # + IntegerReverse[#] &, #, limit],
%t x] != {} &] (* _Robert Price_, Oct 20 2019 *)
%Y Cf. A070788 - A070794, A070796 - A070798, A063049.
%K base,nonn
%O 1,1
%A _Klaus Brockhaus_, May 07 2002