OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n=1,...,12
MATHEMATICA
lst={}; Do[p=2*n!+1; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jan 28 2009 *)
Select[2*Range[200]!+1, PrimeQ] (* Harvey P. Dale, Oct 26 2013 *)
PROG
(PARI) for(n=1, 55, if(isprime(2*n!+1), print(2*n!+1)))
(PARI) { n=0; f=1; for (m=1, 10^5, f*=m; if(isprime(a=2*f + 1), write("b062698.txt", n++, " ", a); if (n==12, break)) ) } \\ Harry J. Smith, Aug 09 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 10 2001
EXTENSIONS
One additional term from Harvey P. Dale, Oct 26 2013
STATUS
approved