A118543 Start with 1 and repeatedly reverse the digits and add 25 to get the next term.

1, 26, 87, 103, 326, 648, 871, 203, 327, 748, 872, 303, 328, 848, 873, 403, 329, 948, 874, 503, 330, 58, 110, 36, 88, 113, 336, 658, 881, 213, 337, 758, 882, 313, 338, 858, 883, 413, 339, 958, 884, 513, 340, 68, 111, 136, 656, 681, 211, 137, 756, 682, 311, 138

Offset

1,2

Comments

After 131 steps enters a cycle of length 45: (72, 52, 50, 30, 28, 107, 726, 652, 281, 207, 727, 752, 282, 307, 728, 852, 283, 407, 729, 952, 284, 507, 730, 62, 51, 40, 29, 117, 736, 662, 291, 217, 737, 762, 292, 317, 738, 862, 293, 417, 739, 962, 294, 517, 740, 72, 52, 50, 30,...)

Links

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

N. J. A. Sloane and others, Sequences of RADD type, OEIS wiki.

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).

Mathematica

NestList[25+FromDigits[Reverse[IntegerDigits[#]]]&, 1, 90]  (* Harvey P. Dale, Mar 18 2011 *)
NestList[25+IntegerReverse[#]&, 1, 90] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 18 2019 *)

Crossrefs

Cf. A117828, A117816, A117817.

Sequence in context: A291631 A325819 A138081 * A048509 A044213 A044594

Adjacent sequences: A118540 A118541 A118542 * A118544 A118545 A118546

Keyword

base,nonn

Author

Luc Stevens (lms022(AT)yahoo.com), May 07 2006

Status

approved