OFFSET
1,1
COMMENTS
The values corresponding to terms 1098 through 1516 have been proved to be prime.
No more terms < 10000. - L. Joris Perrenet, Mar 18 2020
LINKS
The OpenPFGW Project, Primality Tester.
MATHEMATICA
p = 1; Do[If[PrimeQ[n], p *= n]; If[PrimeQ[p*2^n - 1], Print[n]], {n, 2, 10000}] (* Ryan Propper, Sep 05 2005 *)
Select[Table[{k, Times@@Prime[Range[PrimePi[k]]]}, {k, 720}], PrimeQ[#[[2]]2^#[[1]]-1]&][[;; , 1]] (* The program generates the first 33 terms of the sequence. *) (* Harvey P. Dale, Jan 20 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jun 24 2003
EXTENSIONS
More terms from Ryan Propper, Sep 05 2005
a(52) from L. Joris Perrenet, Mar 18 2020
STATUS
approved