A024650 n written in fractional base 9/2.

0, 1, 2, 3, 4, 5, 6, 7, 8, 20, 21, 22, 23, 24, 25, 26, 27, 28, 40, 41, 42, 43, 44, 45, 46, 47, 48, 60, 61, 62, 63, 64, 65, 66, 67, 68, 80, 81, 82, 83, 84, 85, 86, 87, 88, 210, 211, 212, 213, 214, 215, 216, 217, 218, 230, 231, 232, 233, 234, 235, 236, 237, 238, 250, 251, 252, 253

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

Prog

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

Crossrefs

Cf. A245345.

Sequence in context: A103205 A363490 A039127 * A037343 A366947 A366838

Adjacent sequences: A024647 A024648 A024649 * A024651 A024652 A024653

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved