A187551 - OEIS

%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