OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(29) corrected by Sean A. Irvine, Dec 26 2015
More terms from Michel Marcus, Dec 27 2015
STATUS
approved
