A024653 n written in fractional base 9/5.
0, 1, 2, 3, 4, 5, 6, 7, 8, 50, 51, 52, 53, 54, 55, 56, 57, 58, 510, 511, 512, 513, 514, 515, 516, 517, 518, 560, 561, 562, 563, 564, 565, 566, 567, 568, 5120, 5121, 5122, 5123, 5124, 5125, 5126, 5127, 5128, 5170, 5171, 5172, 5173, 5174, 5175, 5176, 5177, 5178
Offset: 0
Links
Crossrefs
Cf. A245354.
Programs
-
Mathematica
a[n_] := a[n] = If[n == 0, 0, 10 * a[5 * 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 * 5) + n % 9); \\ Amiram Eldar, Aug 02 2025
Comments