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 A139448 #11 Apr 11 2017 04:37:07
%S A139448 4,5,6,7,10,13,17,18,28,32,35,38,89,115,117,224,241,353,440,1153,2585,
%T A139448 3075,3456,4895,7483,7649,8197,8625,13285,19849,24179,24442
%N A139448 Numbers n such that primorial(n)/2 - 64 is prime.
%C A139448 a(33) > 25000. - _Robert Price_, Apr 10 2017
%t A139448 k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k - 64]&&k>64, Print[n]; AppendTo[a, n]], {n, 2, 325}]; a
%t A139448 Flatten[Position[Rest[FoldList[Times,1,Prime[Range[600]]]],_?(PrimeQ[ #/2-64]&&#/2>64&)]] (* _Harvey P. Dale_, Mar 05 2013 *)
%t A139448 Select[Range[4, 100], PrimeQ[Product[Prime[k], {k, 1, #}]/2 - 64] &] (* _Robert Price_, Apr 10 2017 *)
%Y A139448 Cf. A067026, A067027, A139439-A139457, A103514.
%K A139448 nonn
%O A139448 1,1
%A A139448 _Artur Jasinski_, Apr 21 2008
%E A139448 a(18)-a(19) from _Harvey P. Dale_, Mar 05 2013
%E A139448 Drop 2 and correct programs, a(20)-a(21) from _Ray Chandler_, Jun 16 2013
%E A139448 a(22)-a(32) from _Robert Price_, Apr 10 2017