A024648 n written in fractional base 8/6.

0, 1, 2, 3, 4, 5, 6, 7, 60, 61, 62, 63, 64, 65, 66, 67, 640, 641, 642, 643, 644, 645, 646, 647, 6420, 6421, 6422, 6423, 6424, 6425, 6426, 6427, 64200, 64201, 64202, 64203, 64204, 64205, 64206, 64207, 64260, 64261, 64262, 64263, 64264, 64265, 64266, 64267

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/8]] + Mod[n, 8]]; Array[a, 100, 0] (* Amiram Eldar, Aug 04 2025 *)

Prog

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

Crossrefs

Sequence in context: A237344 A024647 A250263 * A004858 A043312 A171635

Adjacent sequences: A024645 A024646 A024647 * A024649 A024650 A024651

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved