A024655 n written in fractional base 9/7.
0, 1, 2, 3, 4, 5, 6, 7, 8, 70, 71, 72, 73, 74, 75, 76, 77, 78, 750, 751, 752, 753, 754, 755, 756, 757, 758, 7530, 7531, 7532, 7533, 7534, 7535, 7536, 7537, 7538, 75310, 75311, 75312, 75313, 75314, 75315, 75316, 75317, 75318, 75380, 75381, 75382, 75383, 75384
Offset: 0
Links
Crossrefs
Cf. A245353.
Programs
-
Mathematica
a[n_] := a[n] = If[n == 0, 0, 10 * a[7 * Floor[n/9]] + Mod[n, 9]]; Array[a, 50, 0] (* Amiram Eldar, Aug 02 2025 *)
-
PARI
a(n) = if(n == 0, 0, 10 * a(n\9 * 7) + n % 9); \\ Amiram Eldar, Aug 02 2025
Comments