OFFSET
1,1
COMMENTS
There are 225 such integers < 2000, 1679 less than 10^4, 21389 less than 10^5, and 251613 less than 10^6.
Asymptotic density 17/35 = 0.485.... - Charles R Greathouse IV, Mar 11 2011
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
s={}; Do[un=Select[Union[IntegerDigits[n]], #>1&]; cnt=0; Do[d=un[[k]]; If[Mod[n, d]==0, cnt++; If[cnt>1, AppendTo[s, n]; Goto[ne]]], {k, Length@un}]; Label[ne], {n, 10000}]; s
dtdQ[n_]:=Total[Boole[Divisible[n, Union[Select[IntegerDigits[n], #>1&]]]]]>1; Select[Range[700], dtdQ]
PROG
(PARI) is(n)=my(d=Set(digits(n))); sum(i=1, #d, d[i]>1 && n%d[i]==0)>1 \\ Charles R Greathouse IV, Feb 11 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 10 2011
STATUS
approved