%I
%S 2364,2436,3264,3276,3492,3624,3648,3864,3924,4236,4368,4392,4632,
%T 4872,4896,4932,4968,6324,6384,6432,6984,8496,8736,9324,9432,9648,
%U 9864,12384,12648,12768,12864,13248,13824,13896,13968,14328,14728,14832,16248,16824,17248,18264
%N Numbers divisible by at least four of their digits, different and >1.
%C There are 14594 terms < 10^6.
%C Asymptotic density 10/63 = 0.158....  _Charles R Greathouse IV_, Mar 11 2011
%H Amiram Eldar, <a href="/A187238/b187238.txt">Table of n, a(n) for n = 1..10000</a>
%t numdig = 4; Select[Range[23640], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* _Amiram Eldar_, Aug 30 2020 *)
%Y Subsequence of A187398.
%Y Cf. A187516, A187238, A187533, A187534, A187551, A187565.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 11 2011
