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