OFFSET
1,2
COMMENTS
After 1 step the sequence enters a cycle of length 9.
MATHEMATICA
NestList[FromDigits[RotateLeft[IntegerDigits[#]]]+17&, 1, 60] (* or *) PadRight[{1}, 100, {100, 18, 98, 106, 78, 104, 58, 102, 38}] (* Harvey P. Dale, Dec 21 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 24 2006
STATUS
approved