

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.


3



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



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 *)


CROSSREFS



KEYWORD

nonn,base


AUTHOR



STATUS

approved



