OFFSET
1,1
MATHEMATICA
bb={}; Do[If[PrimeQ[Prime[n]+n*Prime[n+1]], bb=Append[bb, n]], {n, 2, 400, 2}]; bb
Select[Range[2, 1200], PrimeQ[Prime[#] + # Prime[# + 1]] &] (* Harvey P. Dale, May 02 2012 *)
PROG
(PARI) is(n, p=prime(n))=isprime(p+nextprime(p+1)*n) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 02 2005
EXTENSIONS
More terms from Harvey P. Dale, May 02 2012
STATUS
approved