A187551 Numbers divisible by at least seven of their digits, different and >1.

23469768, 23579640, 23594760, 23674896, 23684976, 23687496, 23745960, 23746968, 23769648, 23796864, 23876496, 23897664, 23947560, 23957640, 23976540, 24367896, 24375960, 24376968, 24539760, 24679368, 24687936, 24753960, 24783696, 24869376, 24876936, 25497360, 25639740, 25749360, 25793460, 25967340

Offset: 1

Author

Zak Seidov, Mar 11 2011

Keywords

• nonn
• base

Comments

There are 708 terms < 10^8.

Asymptotic density 1/180 = 0.00555.... - Charles R Greathouse IV, Mar 11 2011

Links

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

Crossrefs

Subsequence of A187534.

Cf. A187398, A187516, A187238, A187533.

Programs

Mathematica

numdig = 7; Select[Range[25967340], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* Amiram Eldar, Aug 30 2020 *)