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 A101434 #10 Feb 18 2015 11:02:50
%S A101434 4,8,16,32,46,64,74,92,94,106,128,134,148,158,166,178,184,188,194,212,
%T A101434 226,254,256,262,268,296,314,316,326,332,334,346,356,368,376,388,422,
%U A101434 424,446,452,466,502,508,512,514,524,526,529,536,554,586,592,614,628,632
%N A101434 Composite numbers which are the product of non-twin primes.
%e A101434 74 = 2*37, 529 = 23*23.
%t A101434 nn = 150; p = Prime[Range[nn]]; t = {2}; Do[If[p[[n + 1]] - p[[n]] != 2 && p[[n]] - p[[n - 1]] != 2, AppendTo[t, p[[n]]]], {n, 2, nn - 1}]; Select[Range[2, t[[-1]]], ! PrimeQ[#] && Complement[Transpose[FactorInteger[#]][[1]], t] == {} &] (* _T. D. Noe_, May 21 2013 *)
%Y A101434 Cf. A100819.
%K A101434 easy,nonn
%O A101434 1,1
%A A101434 _Walter Carlini_, Jan 18 2005
%E A101434 Corrected and extended by _Arkadiusz Wesolowski_, May 21 2013