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 A234105 #6 Nov 30 2016 23:06:27
%S A234105 577,682,892,997,1072,1207,1402,1501,1522,1567,1627,1657,1852,1897,
%T A234105 1942,1963,2152,2194,2242,2257,2320,2392,2422,2467,2502,2557,2593,
%U A234105 2656,2782,2827,2932,3022,3052,3097,3139,3202,3272,3277,3349,3382,3391,3517,3547,3580
%N A234105 Integers of the form (p*q*r*s - 1)/2, where p, q, r, s are distinct primes.
%F A234105 -1 + A234500.
%t A234105 t = Select[Range[1, 20000, 2], Map[Last, FactorInteger[#]] == Table[1, {4}] &]; Take[(t - 1)/2, 120] (* A234105 *)
%t A234105 v = Flatten[Position[PrimeQ[(t - 1)/2], True]] ; w = Table[t[[v[[n]]]], {n, 1, Length[v]}] (* A234498 *)
%t A234105 (w - 1)/2 (* A234499 *) (* _Peter J. C. Moses_, Dec 23 2013 *)
%Y A234105 Cf. A234498, A234499, A234500, A234093, A234097.
%K A234105 nonn,easy
%O A234105 1,1
%A A234105 _Clark Kimberling_, Jan 01 2014