OFFSET
1,1
COMMENTS
a(20) > 25000. - Robert Price, Sep 28 2017
MATHEMATICA
k = 1; a = {}; Do[k = k*Prime[n]; If[PrimeQ[k - 1024]&&k>1024, Print[n]; AppendTo[a, n]], {n, 2, 325}]; a
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 21 2008
EXTENSIONS
Drop 2,3,4 and correct program, a(12)-a(15) from Ray Chandler, Jun 16 2013
a(16)-a(19) from Robert Price, Sep 28 2017
STATUS
approved