|
%I #3 Jun 21 2017 13:07:09
%S 1,21,32,43,54,65,76,87,98,109,111,131,331,333,353,553,555,575,775,
%T 777,797,997,999,1019,211,132,341,433,354,563,655,576,785,877,798,
%U 1007,91,39,113,151,531,335,373,753,557,595,975,779,817,198,1001,31,33,53,55,75
%N Start with 1 and repeatedly place the first digit at the end of the number and add 20.
%C After 24 steps the sequence enters a cycle of length 36.
%t NestList[FromDigits[RotateLeft[IntegerDigits[#]]]+20&,1,60] (* _Harvey P. Dale_, Jun 21 2017 *)
%K base,nonn
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), May 24 2006
|
