login
a(n) = n + A345110(n).
5

%I #9 Jun 09 2021 23:22:23

%S 0,2,4,6,8,10,12,14,16,18,11,22,33,44,55,66,77,88,99,110,22,33,44,55,

%T 66,77,88,99,110,121,33,44,55,66,77,88,99,110,121,132,44,55,66,77,88,

%U 99,110,121,132,143,55,66,77,88,99,110,121,132,143,154,66,77,88

%N a(n) = n + A345110(n).

%C First differs from both A052008 and A056964 at n = 101.

%e For n = 101: 101 + A345110(101) = 101 + 11 = 112, so a(101) = 112.

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

%o (Python)

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

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

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

%Y Cf. A052008, A056964, A345110, A345112, A345113, A345114, A345115.

%K nonn,base,easy

%O 0,2

%A _Felix Fröhlich_, Jun 09 2021