cp's OEIS Frontend

A348179 Replace each decimal digit d of n with the digit that is d steps to the right of d. Interpret the digits of n as a cycle: one step to the right from the last digit is considered to be the first.

%I A348179 #26 Jan 03 2022 12:11:58
%S A348179 0,1,2,3,4,5,6,7,8,9,0,11,22,31,44,51,66,71,88,91,20,22,22,22,24,22,
%T A348179 26,22,28,22,0,13,22,33,44,53,66,73,88,93,40,44,42,44,44,44,46,44,48,
%U A348179 44,0,15,22,35,44,55,66,75,88,95,60,66,62,66,64,66,66,66,68,66,0,17,22,37,44,57,66,77,88,97,80,88,82,88,84,88,86,88,88,88,0,19,22,39,44,59,66,79,88,99,0,1
%N A348179 Replace each decimal digit d of n with the digit that is d steps to the right of d. Interpret the digits of n as a cycle: one step to the right from the last digit is considered to be the first.
%C A348179 First differs from A349422 at a(101). - _Sebastian Karlsson_, Dec 31 2021
%H A348179 Sebastian Karlsson, <a href="/A348179/b348179.txt">Table of n, a(n) for n = 0..10000</a>
%e A348179 a(102345) = 004124 = 4124. For example, 4 gets replaced by 2 because moving 4 steps to the right gives: 4 -> 5 -> 1 -> 0 -> 2. Note that from 5 we went to the first digit of the number.
%t A348179 Table[FromDigits@Table[v[[If[(p=Mod[k+v[[k]],t])==0,t,p]]],{k,t=Length[v=IntegerDigits[n]]}],{n,0,67}] (* _Giorgos Kalogeropoulos_, Oct 08 2021 *)
%o A348179 (Haskell)
%o A348179 import Data.Char (digitToInt)
%o A348179 a n = let s = show n; l = length s in
%o A348179   read [s !! (mod (i + digitToInt (s !! i)) l) | i <- [0..l-1]] :: Integer
%o A348179 (Python)
%o A348179 def a(n):
%o A348179     s, l = str(n), len(str(n))
%o A348179     return int("".join(s[(i + int(s[i])) % l] for i in range(l)))
%o A348179 (PARI) f(k, d) = d[(k+d[k]-1)%#d + 1];
%o A348179 a(n) = my(d=digits(n), dd=vector(#d, k, f(k, d))); fromdigits(dd); \\ _Michel Marcus_, Oct 07 2021
%Y A348179 Cf. A336668 (fixed points), A349422 (to the left), A349423 (index of first appearance of n).
%Y A348179 Cf. A106649, A139337, A322131, A339023, A341767, A341953, A346576, A347323.
%K A348179 nonn,base,look
%O A348179 0,3
%A A348179 _Sebastian Karlsson_, Oct 05 2021
%E A348179 a(68)-a(101) from _Sebastian Karlsson_, Dec 31 2021