A067027 Numbers n such that (prime(n)# + 4)/2 is a prime, where x# is the primorial A034386(x).
1, 2, 3, 4, 6, 10, 11, 12, 15, 17, 29, 48, 63, 77, 88, 187, 190, 338, 1133, 1311, 1832, 2782, 2907, 3180, 3272, 5398, 17530
Offset: 1
Keywords
Programs
-
Mathematica
p = 1; Do[p = p*Prime[n]; If[PrimeQ[(p + 4)/2], Print[n]], {n, 1, 400} ] Flatten[Position[FoldList[Times,Prime[Range[3000]]],?(PrimeQ[ (#+4)/2]&)]] (* _Harvey P. Dale, May 24 2015 *)
-
PARI
n=0;pr=1/2;forprime(p=2,1e4,n++;pr*=p;if(ispseudoprime(pr+2),print1(n", "))) \\ Charles R Greathouse IV, Jul 25 2011
Extensions
More terms from Robert G. Wilson v, Dec 30 2001
a(19)-a(22) from Jason Earls, Dec 12 2006
a(23) from Ray Chandler, Jun 16 2013
a(24)-a(27) from Robert Price, Sep 29 2017
Comments