|
|
A118162
|
|
Start with 1 and repeatedly reverse the digits and add 60 to get the next term.
|
|
1
|
|
|
1, 61, 76, 127, 781, 247, 802, 268, 922, 289, 1042, 2461, 1702, 2131, 1372, 2791, 2032, 2362, 2692, 3022, 2263, 3682, 2923, 3352, 2593, 4012, 2164, 4672, 2824, 4342, 2494, 5002, 2065, 5662, 2725, 5332, 2395, 5992, 3055, 5563, 3715, 5233, 3385, 5893, 4045
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
Never reaches a cycle (see A117816).
|
|
MATHEMATICA
|
NestList[IntegerReverse[#]+60&, 1, 50] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 10 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn,less
|
|
AUTHOR
|
Luc Stevens (lms022(AT)yahoo.com), May 14 2006
|
|
STATUS
|
approved
|
|
|
|