A024656 n written in fractional base 9/8.
0, 1, 2, 3, 4, 5, 6, 7, 8, 80, 81, 82, 83, 84, 85, 86, 87, 88, 870, 871, 872, 873, 874, 875, 876, 877, 878, 8760, 8761, 8762, 8763, 8764, 8765, 8766, 8767, 8768, 87650, 87651, 87652, 87653, 87654, 87655, 87656, 87657, 87658, 876540, 876541, 876542, 876543
Offset: 0
Links
Crossrefs
Cf. A245338.
Programs
-
Mathematica
a[n_] := a[n] = If[n == 0, 0, 10 * a[8 * Floor[n/9]] + Mod[n, 9]]; Array[a, 50, 0] (* Amiram Eldar, Aug 04 2025 *)
-
PARI
a(n) = if(n == 0, 0, 10 * a(n\9 * 8) + n % 9); \\ Amiram Eldar, Aug 04 2025
Comments