A070794 - OEIS

%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