A187238 Numbers divisible by at least four of their digits, different and >1.
2364, 2436, 3264, 3276, 3492, 3624, 3648, 3864, 3924, 4236, 4368, 4392, 4632, 4872, 4896, 4932, 4968, 6324, 6384, 6432, 6984, 8496, 8736, 9324, 9432, 9648, 9864, 12384, 12648, 12768, 12864, 13248, 13824, 13896, 13968, 14328, 14728, 14832, 16248, 16824, 17248, 18264
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
numdig = 4; Select[Range[23640], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* Amiram Eldar, Aug 30 2020 *)
Comments