A024663 n written in fractional base 10/8.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 860, 861, 862, 863, 864, 865, 866, 867, 868, 869, 8640, 8641, 8642, 8643, 8644, 8645, 8646, 8647, 8648, 8649, 86420, 86421, 86422, 86423, 86424, 86425, 86426, 86427, 86428, 86429, 864200

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[8 * 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 * 8) + n % 10); \\ Amiram Eldar, Aug 04 2025

Crossrefs

Sequence in context: A302173 A348799 A341909 * A272360 A288946 A237346

Adjacent sequences: A024660 A024661 A024662 * A024664 A024665 A024666

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved