login
Start with 1 and repeatedly place the first digit at the end of the number and add 4.
0

%I #3 Mar 04 2015 18:49:10

%S 1,5,9,13,35,57,79,101,15,55,59,99,103,35,57,79,101,15,55,59,99,103,

%T 35,57,79,101,15,55,59,99,103,35,57,79,101,15,55,59,99,103,35,57,79,

%U 101,15,55,59,99,103,35,57,79,101,15,55,59,99,103,35,57,79,101,15,55,59,99,103

%N Start with 1 and repeatedly place the first digit at the end of the number and add 4.

%C After 4 steps the sequence enters a cycle of length 9.

%t 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 *)

%K base,nonn

%O 1,2

%A Luc Stevens (lms022(AT)yahoo.com), May 24 2006