login
A118543
Start with 1 and repeatedly reverse the digits and add 25 to get the next term.
0
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
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
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 07 2006
STATUS
approved