

A309991


Balanced quinary (base 5) enumeration (or balanced quinary representation) of integers, write n in quinary, and then replace 3's with (2)'s and 4's with (1)'s.


4



0, 1, 2, 2, 1, 5, 6, 7, 3, 4, 10, 11, 12, 8, 9, 10, 9, 8, 12, 11, 5, 4, 3, 7, 6, 25, 26, 27, 23, 24, 30, 31, 32, 28, 29, 35, 36, 37, 33, 34, 15, 16, 17, 13, 14, 20, 21, 22, 18, 19, 50, 51, 52, 48, 49, 55, 56, 57, 53, 54, 60, 61, 62, 58, 59, 40, 41
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


COMMENTS

This sequence, like the balanced ternary sequence, will eventually include every integer exactly once.


LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..15624


MAPLE

a:= proc(n) option remember; `if`(n=0, 0,
5*a(iquo(n, 5))+mods(n, 5))
end:
seq(a(n), n=0..100); # Alois P. Heinz, Aug 26 2019


MATHEMATICA

Table[FromDigits[IntegerDigits[n, 5]/.{3>2, 4>1}, 5], {n, 0, 120}] (* Harvey P. Dale, Sep 05 2020 *)


PROG

(PARI) a(n) = subst(Pol(apply(d>if(d>2, d5, d), digits(n, 5)), 'x), 'x, 5) \\ Andrew Howroyd, Aug 26 2019


CROSSREFS

Cf. A117966.
Column k=2 of A319047.
Sequence in context: A056857 A175579 A129100 * A162382 A325580 A127082
Adjacent sequences: A309988 A309989 A309990 * A309992 A309993 A309994


KEYWORD

sign,base


AUTHOR

Jackson Haselhorst, Aug 26 2019


STATUS

approved



