A345110 - OEIS

%I #15 Jun 10 2021 20:55:00

%S 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 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 15,25,35,45,55,65,75,85,95,6,16,26,36,46,56,66,76,86

%N 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 First differs from A004086 at n = 101, since A004086(101) = 101, but a(101) = 11.

%e For n = 123: When 123 is rotated one place to the left the resulting number is 231, so a(123) = 231.

%t Array[FromDigits@*RotateLeft@*IntegerDigits,100,0] (* _Giorgos Kalogeropoulos_, Jun 09 2021 *)

%o (PARI) eva(n) = subst(Pol(n), x, 10)

%o 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 a(n) = eva(rot(digits(n)))

%o (Python)

%o def rotl(s): return s[1:] + s[0]

%o def a(n): return int(rotl(str(n)))

%o print([a(n) for n in range(69)]) # _Michael S. Branicky_, Jun 09 2021

%Y Cf. A004086, A345111, A345112, A345113, A345114, A345115.

%Y Rotate left in other bases: A006257, A048787, A255689, A255691, A255692, A255693.

%K nonn,base,easy

%O 0,3

%A _Felix Fröhlich_, Jun 09 2021