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