|
|
A118632
|
|
Start with 1 and repeatedly reverse the digits and add 35 to get the next term.
|
|
0
|
|
|
1, 36, 98, 124, 456, 689, 1021, 1236, 6356, 6571, 1791, 2006, 6037, 7341, 1472, 2776, 6807, 7121, 1252, 2556, 6587, 7891, 2022, 2237, 7357, 7572, 2792, 3007, 7038, 8342, 2473, 3777, 7808, 8122, 2253, 3557, 7588, 8892, 3023, 3238, 8358, 8573, 3793, 4008
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
After 4 steps enters a cycle of length 72.
|
|
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, 1).
|
|
MATHEMATICA
|
NestList[IntegerReverse[#]+35&, 1, 50] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 08 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Luc Stevens (lms022(AT)yahoo.com), May 09 2006
|
|
STATUS
|
approved
|
|
|
|