This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A050697 #10 Oct 16 2019 01:32:58
%S A050697 121,132,143,187,295,312,341,351,451,671,679,781,928,932,1023,1053,
%T A050697 1057,1207,1243,1255,1324,1325,1328,1331,1359,1375,1377,1379,1392,
%U A050697 1395,1539,1573,1592,1703,1775,1972,1975,1982,2139,2189,2317,2321,2349,2367
%N A050697 Numbers that appear in A035140 but not in A050694.
%C A050697 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).
%e A050697 187 = 11*17 -> digits 1 and 7 appear in {1}8{7} and 11 and 17 aren't substrings of "187".
%t A050697 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 *)
%Y A050697 Cf. A050694, A035140.
%K A050697 nonn,base
%O A050697 1,1
%A A050697 _Patrick De Geest_, Aug 15 1999