A024646 n written in fractional base 8/4.

0, 1, 2, 3, 4, 5, 6, 7, 40, 41, 42, 43, 44, 45, 46, 47, 400, 401, 402, 403, 404, 405, 406, 407, 440, 441, 442, 443, 444, 445, 446, 447, 4000, 4001, 4002, 4003, 4004, 4005, 4006, 4007, 4040, 4041, 4042, 4043, 4044, 4045, 4046, 4047, 4400, 4401, 4402, 4403, 4404, 4405

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

Prog

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

Crossrefs

Sequence in context: A364154 A024645 A004847 * A327733 A084831 A037406

Adjacent sequences: A024643 A024644 A024645 * A024647 A024648 A024649

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved