%I #24 Aug 30 2020 04:23:31
%S 248,264,324,384,396,432,624,648,672,728,735,784,824,864,936,1236,
%T 1248,1296,1326,1362,1368,1395,1632,1692,1764,1824,1926,1935,1962,
%U 2048,2064,2136,2184,2196,2248,2304,2316,2328,2340,2346,2364,2376,2384,2394,2408,2436,2448,2460,2480,2488,2496,2540,2568,2584,2604,2634,2640,2648,2664,2688,2730,2736,2744,2784,2824,2832,2840,2848,2856,2864,2916,2934,2964,2984,3024,3048,3096,3126,3162,3168
%N Numbers divisible by at least three of their digits, all different and >1.
%C Asymptotic density 19/63 = 0.301.... - _Charles R Greathouse IV_, Mar 11 2011
%H Amiram Eldar, <a href="/A187398/b187398.txt">Table of n, a(n) for n = 1..10000</a>
%t numdig = 3; Select[Range[3168], Length[(u = Union[Select[IntegerDigits[#], #1 > 1 &]])] >= numdig && Plus @@ (Boole@Divisible[#, u]) >= numdig &] (* _Amiram Eldar_, Aug 30 2020 *)
%Y Subsequence of A187516 (numbers divisible by at least two of their digits, different and >1).
%K nonn,base
%O 1,1
%A _Zak Seidov_, Mar 10 2011
|