A070789 - OEIS

A070789

Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 1.

%I #10 Oct 21 2019 02:35:51

%S 1,2,4,8,16,25,34,43,52,59,61,68,70,77,86,95,104,109,151,154,155,157,

%T 203,208,209,250,253,254,256,302,307,308,352,353,355,401,406,407,409,

%U 451,452,454,500,505,506,508,550,551,553,604,605,607,650,652,703,704

%N Integers n such that the 'Reverse and Add!' trajectory of n joins the trajectory of 1.

%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>

%e The trajectory of 2 is part of the trajectory of 1; the trajectory of 401 joins the trajectory of 1 at 1111 after 3 steps.

%t limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 1, limit];

%t Select[Range[704],

%t Intersection[NestList[ # + IntegerReverse[#] &, #, limit],

%t x] != {} &] (* _Robert Price_, Oct 20 2019 *)

%Y Cf. A070788, A070790 - A070798, A063049.

%K base,nonn

%O 1,2

%A _Klaus Brockhaus_, May 07 2002