A256307 Apply the transformation 0 -> 1 -> 2 -> 3 -> 4 -> 5 -> 6 -> 0 to the digits of n written in base 7; do not convert back to base 10.
1, 2, 3, 4, 5, 6, 0, 21, 22, 23, 24, 25, 26, 20, 31, 32, 33, 34, 35, 36, 30, 41, 42, 43, 44, 45, 46, 40, 51, 52, 53, 54, 55, 56, 50, 61, 62, 63, 64, 65, 66, 60, 1, 2, 3, 4, 5, 6, 0, 211, 212, 213, 214, 215, 216, 210, 221, 222, 223, 224
Offset: 0
Examples
a(7) = 21 because 7 = "10" (in base 7) becomes "21". a(48) = 0 because 48 = "66" (in base 7) becomes "00".
Programs
-
Mathematica
Table[FromDigits[IntegerDigits[n,7]/.{0->1,1->2,2->3,3->4,4->5,5->6,6->0}],{n,0,60}] (* Harvey P. Dale, Oct 09 2023 *)
-
PARI
A256307(n,b=7)=!n+eval(Strchr(apply(d->(d+1)%b+48, digits(n,b))))
Comments