OFFSET
1,2
COMMENTS
After 4 steps the sequence enters a cycle of length 9.
MATHEMATICA
NestList[FromDigits[RotateLeft[IntegerDigits[#]]]+4&, 1, 70] (* or *) PadRight[ {1, 5, 9, 13}, 70, {55, 59, 99, 103, 35, 57, 79, 101, 15}] (* Harvey P. Dale, Mar 04 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 24 2006
STATUS
approved