A024664 n written in fractional base 10/9.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 980, 981, 982, 983, 984, 985, 986, 987, 988, 989, 9870, 9871, 9872, 9873, 9874, 9875, 9876, 9877, 9878, 9879, 98760, 98761, 98762, 98763, 98764, 98765, 98766, 98767, 98768, 98769, 987650

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

Prog

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

Crossrefs

Cf. A245339.

Sequence in context: A278944 A303171 A338831 * A078188 A240511 A345406

Adjacent sequences: A024661 A024662 A024663 * A024665 A024666 A024667

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved