login
A088599
Smallest multiple of n using only one nonzero digit.
2
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 60, 1001, 70, 30, 80, 11101, 90, 11001, 20, 777, 22, 110101, 600, 50, 2002, 999, 700, 1101101, 30, 111011, 800, 33, 22202, 70, 900, 111, 22002, 3003, 40, 11111, 6006, 1101101, 44, 90, 220202, 10011, 6000, 7007, 50, 33303
OFFSET
1,2
LINKS
MAPLE
f:= proc(m) local k, S, r, s, j, g;
if m=1 then return 1 fi;
g:= igcd(m, 10);
if g > 1 then
k:= max(padic:-ordp(g, 2), padic:-ordp(g, 5));
return 10^k*procname(m/g)
fi;
S[-1]:={0}: S[0]:= {1};
for k from 1 do
S[k]:= S[k-1] union (10^k +~S[k-1] mod m);
if min(S[k]) = 0 then break fi;
od:
r:= 10^k; s:= (-10^k) mod m;
for j from k-1 by -1 to 0 do
if not member(s, S[j-1]) then s:= (s - 10^j) mod m; r:= r + 10^j fi;
od;
r;
end proc:
g:= proc(n) local digs;
digs:= select(t -> n mod t = 0, [$1..9]);
min(seq(d*f(n/d), d=digs))
end proc:
map(g, [$1..100]); # Robert Israel, Nov 21 2016
CROSSREFS
Cf. A088756.
Sequence in context: A219209 A223474 A062279 * A004862 A188649 A068634
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Oct 12 2003
EXTENSIONS
More terms from Ray Chandler, Oct 18 2003
STATUS
approved