OFFSET
1,1
MATHEMATICA
Module[{nn=450, prmrl}, prmrl=Partition[FoldList[Times, Prime[Range[nn]]], 2, 1]; Position[prmrl, _?(PrimeQ[#[[1]]+#[[2]]+ 1]&), 1, Heads-> False]]//Flatten (* The program generates the first 15 terms of the sequence. *) (* Harvey P. Dale, Sep 26 2024 *)
PROG
(PARI) pd(n)=prod(i=1, n, prime(i)) \\ A002110
for(k=1, 10^4, a=pd(k)+pd(k+1)+1; if(isprime(a), print1(k, ", "))) \\ Alexandru Petrescu, Jun 17 2022
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Pierre CAMI, Mar 02 2007
EXTENSIONS
Corrected by Emeric Deutsch, Mar 06 2007
Edited by Ray Chandler, Mar 13 2007
a(21) from Michael S. Branicky, Oct 01 2024
STATUS
approved