|
%I #8 Nov 15 2020 15:54:37
%S 1,2,3,4,0,21,22,23,24,20,31,32,33,34,30,41,42,43,44,40,1,2,3,4,0,211,
%T 212,213,214,210,221,222,223,224,220,231,232,233,234,230,241,242,243,
%U 244,240,201,202,203,204,200,311,312,313,314,310,321,322,323
%N Apply the transformation 0 -> 1 -> 2 -> 3 -> 4 -> 0 to the digits of n written in base 5; do not convert back to base 10.
%C Base 5 variant of A256078 (base 2) and A048379 (base 10). See A256303 - A256308 for bases 3 through 8, A256289 for base 9, and A256295 for the variant where the result is converted back to base 10.
%H Harvey P. Dale, <a href="/A256305/b256305.txt">Table of n, a(n) for n = 0..1000</a>
%e a(5) = 21 because 5 = "10" (in base 5) becomes "21".
%e a(24) = 0 because 24 = "44" (in base 5) becomes "00".
%t Table[FromDigits[(IntegerDigits[n,5]+1/.(5->0))],{n,0,60}] (* _Harvey P. Dale_, Nov 15 2020 *)
%o (PARI) A256305(n,b=5)=!n+eval(Strchr(apply(d->(d+1)%b+48, digits(n,b))))
%K nonn,base,easy
%O 0,2
%A _M. F. Hasler_, Mar 22 2015
|
