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

1, 2, 4, 8, 16, 25, 34, 43, 52, 59, 61, 68, 70, 77, 86, 95, 104, 109, 151, 154, 155, 157, 203, 208, 209, 250, 253, 254, 256, 302, 307, 308, 352, 353, 355, 401, 406, 407, 409, 451, 452, 454, 500, 505, 506, 508, 550, 551, 553, 604, 605, 607, 650, 652, 703, 704

Offset

1,2

Links

Table of n, a(n) for n=1..56.

Index entries for sequences related to Reverse and Add!

Example

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.

Mathematica

limit = 10^3; x = NestList[ # + IntegerReverse[#] &, 1, limit];
Select[Range[704],
 Intersection[NestList[ # + IntegerReverse[#] &, #, limit],
x] != {} &] (* Robert Price, Oct 20 2019 *)

Crossrefs

Cf. A070788, A070790 - A070798, A063049.

Sequence in context: A360642 A112992 A202274 * A302588 A348656 A354146

Adjacent sequences: A070786 A070787 A070788 * A070790 A070791 A070792

Keyword

base,nonn

Author

Klaus Brockhaus, May 07 2002

Status

approved