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,1

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

Mathematica

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

Crossrefs

Subsequence of A187534.

Cf. A187398, A187516, A187238, A187533.

Sequence in context: A243364 A104951 A235971 * A204152 A132906 A234342

Adjacent sequences: A187548 A187549 A187550 * A187552 A187553 A187554

Keyword

nonn,base

Author

Zak Seidov, Mar 11 2011

Status

approved