|
|
A118633
|
|
Start with 1 and repeatedly reverse the digits and add 37 to get the next term.
|
|
0
|
|
|
1, 38, 120, 58, 122, 258, 889, 1025, 5238, 8362, 2675, 5799, 10012, 21038, 83049, 94075, 57086, 68112, 21223, 32249, 94260, 6286, 6863, 3723, 3310, 170, 108, 838, 875, 615, 553, 392, 330, 70, 44, 81, 55, 92, 66, 103, 338, 870, 115, 548, 882, 325, 560
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
After 34 steps enters a cycle of length 27.
|
|
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, 1).
|
|
MATHEMATICA
|
NestList[IntegerReverse[#]+37&, 1, 60] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 14 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Luc Stevens (lms022(AT)yahoo.com), May 09 2006
|
|
STATUS
|
approved
|
|
|
|