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