A024661 n written in fractional base 10/6.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 620, 621, 622, 623, 624, 625, 626, 627, 628, 629, 680, 681, 682, 683, 684, 685, 686, 687, 688, 689, 6240, 6241, 6242, 6243, 6244, 6245, 6246, 6247, 6248, 6249, 6800, 6801, 6802, 6803, 6804, 6805

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

Prog

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

Crossrefs

Sequence in context: A302500 A334542 A102493 * A107070 A320081 A243507

Adjacent sequences: A024658 A024659 A024660 * A024662 A024663 A024664

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved