A024650 n written in fractional base 9/2.
0, 1, 2, 3, 4, 5, 6, 7, 8, 20, 21, 22, 23, 24, 25, 26, 27, 28, 40, 41, 42, 43, 44, 45, 46, 47, 48, 60, 61, 62, 63, 64, 65, 66, 67, 68, 80, 81, 82, 83, 84, 85, 86, 87, 88, 210, 211, 212, 213, 214, 215, 216, 217, 218, 230, 231, 232, 233, 234, 235, 236, 237, 238, 250, 251, 252, 253
Offset: 0
Links
Crossrefs
Cf. A245345.
Programs
-
Mathematica
a[n_] := a[n] = If[n == 0, 0, 10 * a[2 * 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 * 2) + n % 9); \\ Amiram Eldar, Aug 02 2025
Comments