OFFSET
1,1
COMMENTS
There are 11936 terms < 4*10^6.
Asymptotic density 97/1260 = 0.0769.... - Charles R Greathouse IV, Mar 11 2011
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
numdig = 5; Select[Range[194328], 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 11 2011
STATUS
approved