|
%I #13 Aug 30 2020 04:25:34
%S 27384,29736,36792,37296,37926,38472,46872,73248,73962,78624,79632,
%T 84672,92736,123648,123864,123984,124368,126384,129384,132648,132864,
%U 132984,134928,136248,136824,138264,138624,139248,139824,142368,143928,146328,146832,148392,148632,149328,149832,162384,163248,163824,164328,164832,167328,167832,168432,172368,183264,183624,184392,184632,186432,189432,192384,193248,193824,194328
%N Numbers divisible by at least five of their digits, different and >1.
%C There are 11936 terms < 4*10^6.
%C Asymptotic density 97/1260 = 0.0769.... - _Charles R Greathouse IV_, Mar 11 2011
%H Amiram Eldar, <a href="/A187533/b187533.txt">Table of n, a(n) for n = 1..10000</a>
%t numdig = 5; Select[Range[194328], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* _Amiram Eldar_, Aug 30 2020 *)
%Y Subsequence of A187238.
%Y Cf. A187398, A187516.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 11 2011
|
