OFFSET
1,1
COMMENTS
a(27) > 172000. - Robert Price, May 10 2019
Some of the results were computed using the PrimeFormGW (PFGW) primality-testing program. - Hugo Pfoertner, Nov 16 2019
EXAMPLE
a(3)=7 because primorial(7)/2 + 2 = A070826(4) + 2 = 2*3*5*7/2 + 2 = 107 is prime.
MATHEMATICA
k = 1; Do[If[PrimeQ[n], k = k*n; If[PrimeQ[k/2 + 2], Print[n]]], {n, 2, 100000}] (* Ryan Propper, Jul 03 2005 *)
PROG
(PARI) P=1/2; forprime(p=2, 1e4, if(isprime((P*=p)+2), print1(p", "))) \\ Charles R Greathouse IV, Mar 14 2011
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Hugo Pfoertner, Jun 27 2004
EXTENSIONS
7 additional terms, corresponding to probable primes, from Ryan Propper, Jul 03 2005
Edited by T. D. Noe, Oct 30 2008
a(26) from Robert Price, May 10 2019
a(27) from Tyler Busby, Mar 17 2024
STATUS
approved