A245353 Sum of digits of n written in fractional base 9/7.
0, 1, 2, 3, 4, 5, 6, 7, 8, 7, 8, 9, 10, 11, 12, 13, 14, 15, 12, 13, 14, 15, 16, 17, 18, 19, 20, 15, 16, 17, 18, 19, 20, 21, 22, 23, 16, 17, 18, 19, 20, 21, 22, 23, 24, 23, 24, 25, 26, 27, 28, 29, 30, 31, 22, 23, 24, 25, 26, 27, 28, 29, 30, 27, 28, 29, 30, 31
Offset: 0
Examples
In base 9/7 the number 14 is represented by 75 and so a(14) = 7 + 5 = 12.
Links
Programs
-
Mathematica
a[n_] := a[n] = If[n == 0, 0, a[7 * Floor[n/9]] + Mod[n, 9]]; Array[a, 100, 0] (* Amiram Eldar, Aug 02 2025 *)
-
PARI
a(n) = if(n == 0, 0, a(n\9 * 7) + n % 9); \\ Amiram Eldar, Aug 02 2025
-
Sage
# uses [basepqsum from A245355] [basepqsum(9,7,w) for w in [0..200]]
Comments