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

243768, 247968, 248976, 297864, 364728, 367248, 376824, 427896, 428736, 432768, 469728, 478296, 478632, 483672, 623784, 627984, 634872, 689472, 732648, 742896, 746928, 762384, 768432, 789264, 796824, 824376, 836472, 873264, 897624, 927864, 976248, 978264, 1289736, 1293768, 1369872, 1372896, 1376928, 1382976, 1679328, 1679832

Offset: 1

Author

Zak Seidov, Mar 11 2011

Keywords

• nonn
• base

Comments

There are 1437 terms < 10^7.

Asymptotic density 1/35 = 0.0285.... - Charles R Greathouse IV, Mar 11 2011

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Subsequence of A187533.

Cf. A187398, A187516, A187238.

Programs

Mathematica

numdig = 6; Select[Range[1679832], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* Amiram Eldar, Aug 30 2020 *)
Select[Range[2*10^5,168*10^4],Length[Select[#/Union[DeleteCases[IntegerDigits[#],1]],IntegerQ]]>5&]//Quiet (* Harvey P. Dale, Mar 18 2025 *)