A256305 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.
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, 212, 213, 214, 210, 221, 222, 223, 224, 220, 231, 232, 233, 234, 230, 241, 242, 243, 244, 240, 201, 202, 203, 204, 200, 311, 312, 313, 314, 310, 321, 322, 323
Offset: 0
Examples
a(5) = 21 because 5 = "10" (in base 5) becomes "21". a(24) = 0 because 24 = "44" (in base 5) becomes "00".
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Table[FromDigits[(IntegerDigits[n,5]+1/.(5->0))],{n,0,60}] (* Harvey P. Dale, Nov 15 2020 *)
-
PARI
A256305(n,b=5)=!n+eval(Strchr(apply(d->(d+1)%b+48, digits(n,b))))
Comments