A024642 n written in fractional base 7/5.

0, 1, 2, 3, 4, 5, 6, 50, 51, 52, 53, 54, 55, 56, 530, 531, 532, 533, 534, 535, 536, 5310, 5311, 5312, 5313, 5314, 5315, 5316, 5360, 5361, 5362, 5363, 5364, 5365, 5366, 53140, 53141, 53142, 53143, 53144, 53145, 53146, 53620, 53621, 53622, 53623, 53624, 53625

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[5 * Floor[n/7]] + Mod[n, 7]]; Array[a, 50, 0] (* Amiram Eldar, Jul 31 2025 *)

Prog

(PARI) a(n) = if(n == 0, 0, 10 * a(n\7 * 5) + n % 7); \\ Amiram Eldar, Jul 31 2025

Crossrefs

Cf. A245352.

Sequence in context: A043311 A171594 A044908 * A062944 A032549 A028428

Adjacent sequences: A024639 A024640 A024641 * A024643 A024644 A024645

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved