A024654 n written in fractional base 9/6.

0, 1, 2, 3, 4, 5, 6, 7, 8, 60, 61, 62, 63, 64, 65, 66, 67, 68, 630, 631, 632, 633, 634, 635, 636, 637, 638, 6300, 6301, 6302, 6303, 6304, 6305, 6306, 6307, 6308, 6360, 6361, 6362, 6363, 6364, 6365, 6366, 6367, 6368, 63030, 63031, 63032, 63033, 63034, 63035, 63036

Offset

0,3

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.

Mathematica

a[n_] := a[n] = If[n == 0, 0, 10 * a[6 * Floor[n/9]] + Mod[n, 9]]; Array[a, 100, 0] (* Amiram Eldar, Aug 04 2025 *)

Prog

(PARI) a(n) = if(n == 0, 0, 10 * a(n\9 * 6) + n % 9); \\ Amiram Eldar, Aug 04 2025

Crossrefs

Sequence in context: A010353 A010352 A024653 * A004859 A237345 A024655

Adjacent sequences: A024651 A024652 A024653 * A024655 A024656 A024657

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved