|
%I #3 Dec 21 2016 17:04:32
%S 1,18,98,106,78,104,58,102,38,100,18,98,106,78,104,58,102,38,100,18,
%T 98,106,78,104,58,102,38,100,18,98,106,78,104,58,102,38,100,18,98,106,
%U 78,104,58,102,38,100,18,98,106,78,104,58,102,38,100,18,98,106,78,104,58
%N Start with 1 and repeatedly place the first digit at the end of the number and add 17.
%C After 1 step the sequence enters a cycle of length 9.
%t NestList[FromDigits[RotateLeft[IntegerDigits[#]]]+17&,1,60] (* or *) PadRight[{1},100,{100,18,98,106,78,104,58,102,38}] (* _Harvey P. Dale_, Dec 21 2016 *)
%K base,nonn
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), May 24 2006
|
