A024652 n written in fractional base 9/4.

0, 1, 2, 3, 4, 5, 6, 7, 8, 40, 41, 42, 43, 44, 45, 46, 47, 48, 80, 81, 82, 83, 84, 85, 86, 87, 88, 430, 431, 432, 433, 434, 435, 436, 437, 438, 470, 471, 472, 473, 474, 475, 476, 477, 478, 820, 821, 822, 823, 824, 825, 826, 827, 828, 860, 861, 862, 863, 864, 865, 866, 867, 868

Offset: 0

Author

David W. Wilson

Keywords

• nonn
• base
• easy

Comments

To represent a number in base b, if a digit exceeds b-1, subtract b and carry 1. In fractional base a/b, subtract a and carry b.

Links

• Amiram Eldar, Table of n, a(n) for n = 0..10000
• Index entries for sequences related to fractional bases.

Crossrefs

Cf. A245350.

Programs

Mathematica

a[n_] := a[n] = If[n == 0, 0, 10 * a[4 * 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 * 4) + n % 9); \\ Amiram Eldar, Aug 02 2025