OFFSET
1,2
COMMENTS
After 2 steps the sequence enters a cycle of length 6.
MATHEMATICA
NestList[FromDigits[RotateLeft[IntegerDigits[#]]]+12&, 1, 120] (* or *) PadRight[{1, 13}, 120, {109, 103, 43, 46, 76, 79}] (* Harvey P. Dale, Nov 23 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 24 2006
STATUS
approved