|
%I #10 Oct 21 2019 02:35:18
%S 100,101,103,107,188,193,200,202,206,287,292,299,301,305,386,391,398,
%T 400,404,485,490,497,503,584,596,602,683,695,701,709,782,794,800,808,
%U 881,893,907,980,992,1034,1069,1076,1124,1159,1166,1214,1249,1256,1291
%N Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 100.
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%e 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.
%t limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 100, limit];
%t Select[Range[1291],
%t Intersection[NestList[ # + IntegerReverse[#] &, #, limit],
%t x] != {} &] (* _Robert Price_, Oct 20 2019 *)
%Y Cf. A070788 - A070793, A070795 - A070798, A063049.
%K base,nonn
%O 1,1
%A _Klaus Brockhaus_, May 07 2002
|
