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