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 A234501 #8 Jun 24 2015 04:21:45
%S A234501 1365,3045,4305,4485,4785,4845,5005,5313,6045,6405,7161,7665,8265,
%T A234501 8745,9165,9345,9933,10005,10101,10465,10545,10605,10965,11305,11685,
%U A234501 12441,12597,13585,14385,14421,14973,15045,15405,15645,15873,16185,16485,17085,17385
%N A234501 Products p*q*r*s of distinct primes for which (p*q*r*s + 1)/2 is prime.
%e A234501 1365 = 3*5*7*13, and (1365+1)/2 = 683, a prime.
%t A234501 t = Select[Range[1, 20000, 2], Map[Last, FactorInteger[#]] == Table[1, {4}] &]; Take[(t + 1)/2, 120] (* A234500*)
%t A234501 v = Flatten[Position[PrimeQ[(t + 1)/2], True]] ; w = Table[t[[v[[n]]]], {n, 1, Length[v]}] (* A234501 *)
%t A234501 (w + 1)/2 (* A234502 *) (* _Peter J. C. Moses_, Dec 23 2013 *)
%Y A234501 Cf. A234500, A234502, A234498, A234103.
%K A234501 nonn,easy
%O A234501 1,1
%A A234501 _Clark Kimberling_, Jan 01 2014