A118304 Start with 25 and repeatedly reverse the digits and add 1 to get the next term.
25, 53, 36, 64, 47, 75, 58, 86, 69, 97, 80, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2
Offset: 0
Links
- N. J. A. Sloane and others, Sequences of RADD type, OEIS wiki.
Crossrefs
Cf. A118551.
Programs
-
Mathematica
NestList[FromDigits[Reverse[IntegerDigits[#]]]+1&,25,100] (* Harvey P. Dale, Jun 19 2014 *)
Comments