A024660 n written in fractional base 10/5.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 500, 501, 502, 503, 504, 505, 506, 507, 508, 509, 550, 551, 552, 553, 554, 555, 556, 557, 558, 559, 5000, 5001, 5002, 5003, 5004, 5005, 5006, 5007, 5008, 5009, 5050, 5051, 5052, 5053, 5054, 5055

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

Prog

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

Crossrefs

Sequence in context: A335205 A349190 A252781 * A257814 A327455 A327735

Adjacent sequences: A024657 A024658 A024659 * A024661 A024662 A024663

Keyword

nonn,base,easy

Author

David W. Wilson

Status

approved