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 A157346 #13 Feb 02 2018 02:54:18
%S A157346 30,66,110,138,165,174,230,246,290,318,345,410,435,498,506,530,534,
%T A157346 615,638,678,759,786,795,830,890,902,957,1038,1074,1130,1146,1166,
%U A157346 1245,1265,1310,1334,1335,1353,1398,1434,1506,1595,1686,1695,1730,1749,1758,1790
%N A157346 Products of 3 distinct Sophie Germain primes.
%H A157346 G. C. Greubel, <a href="/A157346/b157346.txt">Table of n, a(n) for n = 1..5000</a>
%e A157346 30 = 2*3*5; 2,3 and 5 are distinct Sophie Germain primes.
%e A157346 66 = 2*3*11; 2,3 and 11 are distinct Sophie Germain primes.
%t A157346 lst={};Do[If[Plus@@Last/@FactorInteger[n]==3,a=Length[First/@FactorInteger[n]];If[a==3,b=First/@FactorInteger[n];c=b[[1]];d=b[[2]];e=b[[3]];If[PrimeQ[2*c+1]&&PrimeQ[2*d+1]&&PrimeQ[2*e+1],AppendTo[lst,n]]]],{n,7!}];lst
%t A157346 With[{sgps=Select[Prime[Range[100]],PrimeQ[2#+1]&]},Take[Union[ Times@@@ Subsets[sgps,{3}]],60]] (* _Harvey P. Dale_, Aug 10 2011 *)
%Y A157346 Cf. A001358, A005384, A111206, A157342, A006881, A157344, A157345, A007304.
%K A157346 nonn
%O A157346 1,1
%A A157346 _Vladimir Joseph Stephan Orlovsky_, Feb 27 2009