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 A139456 #9 Sep 15 2023 15:28:43
%S A139456 5,9,10,11,16,17,20,59,96,98,318,387,938,978,1764,8298,10632,11796,
%T A139456 19982
%N A139456 Numbers n such that primorial(n)/2 - 1024 is prime.
%C A139456 a(20) > 25000. - _Robert Price_, Sep 28 2017
%t A139456 k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k - 1024]&&k>1024, Print[n]; AppendTo[a, n]], {n, 2, 325}]; a
%t A139456 Drop[Flatten[Position[FoldList[Times,Prime[Range[400]]],_?(PrimeQ[#/2-1024]&)]],3] (* The program generates the first 12 terms of the sequence. To generate more, increase the Range constant but the program may take a long time to run. *) (* _Harvey P. Dale_, Sep 15 2023 *)
%Y A139456 Cf. A067026, A067027, A139439-A139457, A103514.
%K A139456 nonn
%O A139456 1,1
%A A139456 _Artur Jasinski_, Apr 21 2008
%E A139456 Drop 2,3,4 and correct program, a(12)-a(15) from _Ray Chandler_, Jun 16 2013
%E A139456 a(16)-a(19) from _Robert Price_, Sep 28 2017