|
%I #30 Dec 21 2022 09:19:31
%S 1,2,3,4,5,6,7,8,9,0,21,22,23,24,25,26,27,28,29,20,31,32,33,34,35,36,
%T 37,38,39,30,41,42,43,44,45,46,47,48,49,40,51,52,53,54,55,56,57,58,59,
%U 50,61,62,63,64,65,66,67,68,69,60,71,72,73,74,75,76,77,78,79,70,81,82
%N Apply the transformation 0->1->2->3->4->5->6->7->8->9->0 to digits of n.
%C This is the same as a(n) = 1*n in the arithmetic defined in A169918 (cf. A169930). - _M. F. Hasler_, Mar 25 2015
%H Reinhard Zumkeller, <a href="/A048379/b048379.txt">Table of n, a(n) for n = 0..90000</a>
%F a(A002283(n)) = 0. - _Reinhard Zumkeller_, Feb 21 2014
%e a(8) = 9.
%e a(9) = 0.
%e a(10) = 21 because the original 1 is changed to a 2 and the 0 is changed to a 1.
%t Table[FromDigits[ReplaceAll[IntegerDigits[n] + 1, 10 -> 0]], {n, 0, 79}] (* _Alonso del Arte_, Feb 27 2014 *)
%o (Haskell)
%o a048379 n = if n == 0 then 1 else x n where
%o x m = if m == 0 then 0 else 10 * x m' + (d + 1) `mod` 10
%o where (m',d) = divMod m 10
%o -- _Reinhard Zumkeller_, Feb 21 2014
%o (PARI) A048379(n)=n+sum(i=1, #n=digits(n), if(n[i]<9, 10^(i-1), -9*10^(i-1))) \\ _M. F. Hasler_, Mar 21 2015
%o (PARI) A048379(n)=!n+apply(t->(t+1)%10, n=digits(n))*vector(#n, i, 10^(#n-i))~ \\ _M. F. Hasler_, Mar 21 2015
%o (Python)
%o d = {ord(str(i)):ord(str((i+1)%10)) for i in range(10)}
%o def a(n): return int(str(n).translate(d))
%o print([a(n) for n in range(72)]) # _Michael S. Branicky_, Dec 20 2022
%K nonn,base,easy
%O 0,2
%A _Patrick De Geest_, Mar 15 1999
|
