%I #10 Oct 21 2019 02:35:36
%S 7,14,19,23,28,29,32,37,38,41,46,47,49,50,55,56,58,64,65,67,73,74,76,
%T 82,83,85,89,91,92,94,98,110,121,136,143,187,220,235,242,286,334,341,
%U 385,433,440,484,532,569,583,631,668,682,719,730,767,781,818,866,869
%N Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 7.
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%e The trajectory of 14 is part of the trajectory of 7; the trajectory of 235 joins the trajectory of 7 at 8872688 after 13 steps.
%t limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 7, limit];
%t Select[Range[869],
%t Intersection[NestList[ # + IntegerReverse[#] &, #, limit],
%t x] != {} &] (* _Robert Price_, Oct 20 2019 *)
%Y Cf. A070788 - A070791, A070793 - A070798, A063049.
%K base,nonn
%O 1,1
%A _Klaus Brockhaus_, May 07 2002