OFFSET
1,1
COMMENTS
Digits of prime factors of a(n) all appear in a(n) but not all prime factors of a(n) are a substring of a(n).
EXAMPLE
187 = 11*17 -> digits 1 and 7 appear in {1}8{7} and 11 and 17 aren't substrings of "187".
MATHEMATICA
d[n_]:=IntegerDigits[n]; t={}; Do[le1=Max@@Length/@(t1=d[First/@FactorInteger[n]]); t2=Flatten[Table[Partition[d[n], i, 1], {i, le1}], 1]; If[!PrimeQ[n]&&Complement[t1, t2]!={}&&Complement[Flatten[t1], d[n]]=={}, AppendTo[t, n]], {n, 20, 2380}]; t (* Jayanta Basu, May 31 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Aug 15 1999
STATUS
approved