login
A050697
Numbers that appear in A035140 but not in A050694.
1
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
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
Sequence in context: A173070 A044867 A162531 * A319923 A020253 A182776
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Aug 15 1999
STATUS
approved