|
%I #15 Aug 30 2020 04:25:20
%S 23469768,23579640,23594760,23674896,23684976,23687496,23745960,
%T 23746968,23769648,23796864,23876496,23897664,23947560,23957640,
%U 23976540,24367896,24375960,24376968,24539760,24679368,24687936,24753960,24783696,24869376,24876936,25497360,25639740,25749360,25793460,25967340
%N Numbers divisible by at least seven of their digits, different and >1.
%C There are 708 terms < 10^8.
%C Asymptotic density 1/180 = 0.00555.... - _Charles R Greathouse IV_, Mar 11 2011
%H Amiram Eldar, <a href="/A187551/b187551.txt">Table of n, a(n) for n = 1..10000</a>
%t numdig = 7; Select[Range[25967340], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* _Amiram Eldar_, Aug 30 2020 *)
%Y Subsequence of A187534.
%Y Cf. A187398, A187516, A187238, A187533.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 11 2011
|
