OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
S:= [$0..100]:
Res:= 9: S:= subs(9=NULL, S):
digs:= {9}:
while S <> [] do
found:= false;
for i from 1 to nops(S) while not found do
ndigs:= convert(convert(S[i], base, 10), set);
if ndigs intersect digs <> {} then
found:= true;
Res:=Res, S[i];
S:= subsop(i=NULL, S);
digs:= ndigs;
fi
od;
if not found then break fi;
od:
Res; # Robert Israel, Jan 22 2020
MATHEMATICA
f[l_] := Block[{c = 0}, While[ MemberQ[l, c] || Intersection @@ IntegerDigits /@{Last[l], c}=={}, c++ ]; Return[Append[l, c]]]; Nest[f, {9}, 70] (* Ray Chandler, Jul 19 2005 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini & Zak Seidov, May 24 2005
STATUS
approved