OFFSET
1,1
MATHEMATICA
Reap[Do[If[PrimeQ[p=n^2+3n+9]&&PrimeQ[q=p^2+3p+9], Sow[p]], {n, -1, 10^4}]][[2, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 21 2010
STATUS
approved