|
|
|
|
121, 132, 143, 187, 295, 312, 341, 351, 451, 671, 679, 781, 928, 932, 1023, 1053, 1057, 1207, 1243, 1255, 1324, 1325, 1328, 1331, 1359, 1375, 1377, 1379, 1392, 1395, 1539, 1573, 1592, 1703, 1775, 1972, 1975, 1982, 2139, 2189, 2317, 2321, 2349, 2367
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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).
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|