A024651 n written in fractional base 9/3.

0, 1, 2, 3, 4, 5, 6, 7, 8, 30, 31, 32, 33, 34, 35, 36, 37, 38, 60, 61, 62, 63, 64, 65, 66, 67, 68, 300, 301, 302, 303, 304, 305, 306, 307, 308, 330, 331, 332, 333, 334, 335, 336, 337, 338, 360, 361, 362, 363, 364, 365, 366, 367, 368, 600, 601, 602, 603, 604, 605, 606, 607, 608

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

Prog

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

Crossrefs

Sequence in context: A096986 A031097 A162234 * A004848 A183531 A024652

Adjacent sequences: A024648 A024649 A024650 * A024652 A024653 A024654

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved