login
A004286
Least positive multiple of n written in base 6 using only 0 and 1.
2
1, 10, 10, 100, 11111, 10, 11, 1000, 100, 111110, 1101, 100, 10111, 110, 111110, 10000, 11001, 100, 101011, 1111100, 110, 11010, 1101, 1000, 111101, 101110, 1000, 1100, 1010111, 111110, 1001, 100000, 11010, 110010, 1111111111, 100, 101, 1010110, 101110, 11111000
OFFSET
1,2
LINKS
MAPLE
N:= 100: # for a(1)..a(N)
V:= Vector(N): count:= 0:
for x from 1 while count < N do
L:= convert(x, base, 2);
y:= add(L[i]*6^(i-1), i=1..nops(L));
for z in NumberTheory:-Divisors(y) do
if z <= N and V[z] = 0 then V[z]:= add(L[i]*10^(i-1), i=1..nops(L)); count:= count+1; fi
od;
od:
convert(V, list); # Robert Israel, Jan 01 2026
PROG
(PARI) a(n) = {k=1; while (vecmax(digits(k*n, 6)) != 1, k++); subst(Pol(digits(k*n, 6)), x, 10); }
CROSSREFS
Sequence in context: A288765 A287743 A287907 * A145595 A287742 A288494
KEYWORD
nonn,base
EXTENSIONS
a(29) corrected by Sean A. Irvine, Dec 26 2015
More terms from Michel Marcus, Dec 27 2015
STATUS
approved