A088599 Smallest multiple of n using only one nonzero digit.

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

Robert Israel, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A088596 A088597 A088598 * A088600 A088601 A088602

Keyword

base,nonn

Author

Amarnath Murthy, Oct 12 2003

Extensions

More terms from Ray Chandler, Oct 18 2003

Status

approved