cp's OEIS Frontend

A345110 a(n) is n rotated one place to the left or, equivalently, n with the most significant digit moved to the least significant place, omitting leading zeros.

%I A345110 #15 Jun 10 2021 20:55:00
%S A345110 0,1,2,3,4,5,6,7,8,9,1,11,21,31,41,51,61,71,81,91,2,12,22,32,42,52,62,
%T A345110 72,82,92,3,13,23,33,43,53,63,73,83,93,4,14,24,34,44,54,64,74,84,94,5,
%U A345110 15,25,35,45,55,65,75,85,95,6,16,26,36,46,56,66,76,86
%N A345110 a(n) is n rotated one place to the left or, equivalently, n with the most significant digit moved to the least significant place, omitting leading zeros.
%C A345110 First differs from A004086 at n = 101, since A004086(101) = 101, but a(101) = 11.
%e A345110 For n = 123: When 123 is rotated one place to the left the resulting number is 231, so a(123) = 231.
%t A345110 Array[FromDigits@*RotateLeft@*IntegerDigits,100,0] (* _Giorgos Kalogeropoulos_, Jun 09 2021 *)
%o A345110 (PARI) eva(n) = subst(Pol(n), x, 10)
%o A345110 rot(vec) = if(#vec < 2, return(vec)); my(s=concat(Str(2), ".."), v=[]); s=concat(s, Str(#vec)); v=vecextract(vec, s); v=concat(v, vec[1]); v
%o A345110 a(n) = eva(rot(digits(n)))
%o A345110 (Python)
%o A345110 def rotl(s): return s[1:] + s[0]
%o A345110 def a(n): return int(rotl(str(n)))
%o A345110 print([a(n) for n in range(69)]) # _Michael S. Branicky_, Jun 09 2021
%Y A345110 Cf. A004086, A345111, A345112, A345113, A345114, A345115.
%Y A345110 Rotate left in other bases: A006257, A048787, A255689, A255691, A255692, A255693.
%K A345110 nonn,base,easy
%O A345110 0,3
%A A345110 _Felix Fröhlich_, Jun 09 2021