%I #20 Aug 30 2020 11:21:46
%S 1234759680,1234857960,1234895760,1234958760,1235487960,1235679480,
%T 1235976840,1236795840,1237569480,1237589640,1237594680,1237695480,
%U 1237894560,1238549760,1238574960,1238597640,1238975640,1239547680,1239567840,1239756840,1239784560,1239847560,1239857640,1243579680,1243589760,1243879560,1243957680,1245378960,1245973680,1245983760
%N Numbers divisible by at least eight of their digits, different and >1.
%C First 11460 terms are pandigital numbers (A050278).
%C Asymptotic density 1/2520 = 0.000396.... - _Charles R Greathouse IV_, Mar 11 2011
%C 11460 terms up to 10^10, 299275 terms up to 10^11, 6224794 terms up to 10^12. - _Charles R Greathouse IV_, Mar 11 2011
%H David A. Corneth, <a href="/A187565/b187565.txt">Table of n, a(n) for n = 1..11460</a> (terms <= 10^10)
%t numdig = 8; Select[Range[1245983760], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* _Amiram Eldar_, Aug 30 2020 *)
%o (PARI) s(n) = my(res=Set(digits(n)));select(x->x>1,res)
%o is(n) = my(d=s(n));if(#d < 8, return(0)); sum(i=1, #d, n%d[i]==0) >= 8 \\ _David A. Corneth_, Aug 30 2020
%Y Cf. A050278, A187398, A187516, A187238, A187533, A187534.
%Y Subsequence of A187551 (numbers divisible by at least seven ...).
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 11 2011