OFFSET
1,1
COMMENTS
Asymptotic density 19/63 = 0.301.... - Charles R Greathouse IV, Mar 11 2011
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
numdig = 3; Select[Range[3168], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* Amiram Eldar, Aug 30 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 10 2011
STATUS
approved