|
|
A139439
|
|
Numbers n such that primorial(n)/2 + 4 is prime.
|
|
24
|
|
|
1, 2, 3, 4, 7, 18, 21, 70, 76, 323, 340, 556, 572, 3433, 5457, 5897, 10820
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Position[#/2+4&/@FoldList[Times, Prime[Range[600]]], _?(PrimeQ[#]&)]// Flatten (* The program generates the first 13 terms of the sequence. To generate more, increase the Range constant, but the program may take a long time to run.*) (* Harvey P. Dale, Mar 20 2021 *)
|
|
PROG
|
(PARI) n=0; t=1/2; forprime(p=2, 1e9, n++; t*=p; if(ispseudoprime(t+4), print1(n", "))) \\ Charles R Greathouse IV, Apr 28 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(1)=1 inserted and a(12)-a(13) from Ray Chandler, Jun 16 2013
|
|
STATUS
|
approved
|
|
|
|