A118856 - OEIS

%I #3 Feb 25 2016 18:20:11

%S 1,14,54,58,98,102,34,56,78,100,14,54,58,98,102,34,56,78,100,14,54,58,

%T 98,102,34,56,78,100,14,54,58,98,102,34,56,78,100,14,54,58,98,102,34,

%U 56,78,100,14,54,58,98,102,34,56,78,100,14,54,58,98,102,34,56,78,100,14,54

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

%C After 1 step the sequence enters a cycle of length 9.

%t NestList[Module[{a,b},{a,b}=TakeDrop[IntegerDigits[#],1];FromDigits[ Join[ b,a]]]+13&,1,70] (* The program uses the TakeDrop function from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 25 2016 *)

%K base,nonn

%O 1,2

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