OFFSET
1,1
COMMENTS
MATHEMATICA
f[l_] := Block[{c = 0}, While[ MemberQ[l, c] || Intersection @@ IntegerDigits /@{Last[l], c}=={}, c++ ]; Return[Append[l, c]]]; Nest[f, {4}, 70] (* Ray Chandler, Jul 19 2005 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini & Zak Seidov, May 24 2005
STATUS
approved