A187534 - OEIS

%I #13 Aug 30 2020 04:24:33

%S 243768,247968,248976,297864,364728,367248,376824,427896,428736,

%T 432768,469728,478296,478632,483672,623784,627984,634872,689472,

%U 732648,742896,746928,762384,768432,789264,796824,824376,836472,873264,897624,927864,976248,978264,1289736,1293768,1369872,1372896,1376928,1382976,1679328,1679832

%N Numbers divisible by at least six of their digits, different and >1.

%C There are 1437 terms < 10^7.

%C Asymptotic density 1/35 = 0.0285.... - _Charles R Greathouse IV_, Mar 11 2011

%H Amiram Eldar, <a href="/A187534/b187534.txt">Table of n, a(n) for n = 1..10000</a>

%t numdig = 6; Select[Range[1679832], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* _Amiram Eldar_, Aug 30 2020 *)

%Y Subsequence of A187533.

%Y Cf. A187398, A187516, A187238.

%K nonn,base

%O 1,1

%A _Zak Seidov_, Mar 11 2011