A024635 n written in fractional base 6/2.

0, 1, 2, 3, 4, 5, 20, 21, 22, 23, 24, 25, 40, 41, 42, 43, 44, 45, 200, 201, 202, 203, 204, 205, 220, 221, 222, 223, 224, 225, 240, 241, 242, 243, 244, 245, 400, 401, 402, 403, 404, 405, 420, 421, 422, 423, 424, 425, 440, 441, 442, 443, 444, 445, 2000, 2001, 2002, 2003

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

Prog

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

Crossrefs

Sequence in context: A362064 A342617 A329579 * A217679 A248901 A280849

Adjacent sequences: A024632 A024633 A024634 * A024636 A024637 A024638

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved