STATUS
editing
approved
editing
approved
Select[Range[6300], CompositeQ[#]&&AllTrue[Rest[Divisors[#]], DigitCount[ #, 10, 5]> 0&]&] (* Harvey P. Dale, Jan 22 2023 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
25 has divisors 1, 5 and 25, all of which contain the digit 5.
proposed
editing
editing
proposed
0,1,1
Amiram Eldar, <a href="/A062672/b062672.txt">Table of n, a(n) for n = 1..10000</a>
Offset corrected by Amiram Eldar, Nov 07 2019
approved
editing
proposed
approved