|
|
A120214
|
|
Start with 1013 and repeatedly reverse the digits and add 2 to get the next term.
|
|
6
|
|
|
1013, 3103, 3015, 5105, 5017, 7107, 7019, 9109, 9021, 1211, 1123, 3213, 3125, 5215, 5127, 7217, 7129, 9219, 9131, 1321, 1233, 3323, 3235, 5325, 5237, 7327, 7239, 9329, 9241, 1431, 1343, 3433, 3345, 5435, 5347, 7437, 7349, 9439, 9351, 1541, 1453, 3543
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Let T(S,Q) be the sequence obtained by starting with S and repeatedly reversing the digits and adding Q to get the next term. This is T(1013,2). 1013 is the first S for which T(S,2) reaches a cycle of length 90. The cycle is simply the first 90 terms, which then repeat. A full period is given in the table.
|
|
LINKS
|
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, 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, 0, 1).
|
|
MATHEMATICA
|
NestList[IntegerReverse[#]+2&, 1013, 50] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 16 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|