%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