|
%I #3 Nov 17 2014 18:46:48
%S 1,9,17,79,105,59,103,39,101,19,99,107,79,105,59,103,39,101,19,99,107,
%T 79,105,59,103,39,101,19,99,107,79,105,59,103,39,101,19,99,107,79,105,
%U 59,103,39,101,19,99,107,79,105,59,103,39,101,19,99,107,79,105,59,103
%N Start with 1 and repeatedly place the first digit at the end of the number and add 8.
%C After 3 steps the sequence enters a cycle of length 9.
%t NestList[FromDigits[RotateLeft[IntegerDigits[#]]]+8&,1,60] (* _Harvey P. Dale_, Nov 17 2014 *)
%K base,nonn
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), May 24 2006
|
