A118513 Define sequence S_m by: initial term = m, reverse digits and add 1 to get next term. Entry shows S_13. This reaches a cycle of length 9 in 15 steps.
13, 32, 24, 43, 35, 54, 46, 65, 57, 76, 68, 87, 79, 98, 90, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10
Offset: 1
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, 1).
Programs
-
Mathematica
Join[{13,32,24,43,35,54,46,65,57,76,68,87,79,98,90},LinearRecurrence[{0,0,0,0,0,0,0,0,1},{10,2,3,4,5,6,7,8,9},73]] (* Ray Chandler, Jul 18 2015 *) NestList[IntegerReverse[#]+1&,13,90] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 06 2019 *)