OFFSET
1,1
MATHEMATICA
lst={}; Do[If[PrimeQ[p=81*n^2-72*n+17], If[PrimeQ[2*p+1], AppendTo[lst, p]]], {n, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 11 2009
STATUS
approved