OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..2500 from Barbara W. Waddell and Robert G. Wilson v)
EXAMPLE
The divisors of 10201 are {1, 101, and 10201}. Except for 1 each has a 0 in its decimal expansion.
MATHEMATICA
fQ[n_, dgt_] := Union[ MemberQ[#, dgt] & /@ IntegerDigits@ Rest@ Divisors@ n][[1]]; Select[ Range[2, 106000], !PrimeQ[#] && fQ[#, 0] &]
cd0Q[n_]:=CompositeQ[n]&&AllTrue[Rest[Divisors[n]], DigitCount[#, 10, 0]>0&]; Select[Range[ 106000], cd0Q] (* Harvey P. Dale, Aug 15 2024 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Barbara W. Waddell and Robert G. Wilson v, Jun 11 2014
EXTENSIONS
Definition slightly modified by Harvey P. Dale, Aug 15 2024
STATUS
approved