OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
EXAMPLE
43 = prime(14), 107 = prime(14*2) and 43*107+2 = 4603 is prime, therefore 4603 is a term.
MATHEMATICA
Select[Table[Prime[n]Prime[2n]+2, {n, 500}], PrimeQ] (* Harvey P. Dale, Nov 28 2011 *)
PROG
(PARI) for(n=1, 1000, p=prime(n); p2=prime(2*n); Q=p*p2+2; if(isprime(Q), print1(Q, ", ")))
(Magma) [ p: n in [1..400] | IsPrime(p) where p is NthPrime(n)*NthPrime(n*2)+2 ];
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 11 2002
STATUS
approved