OFFSET
1,2
MATHEMATICA
Do[s=5*n^2+5*n+1; If[PrimeQ[s], Print[n]], {n, 1, 1000}]
PROG
(PARI) isok(n) = isprime(5*n^2+5*n+1); \\ Michel Marcus, Apr 30 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Dec 11 2003
EXTENSIONS
More terms from Labos Elemer, Dec 12 2003
Offset corrected by Arkadiusz Wesolowski, Aug 09 2011
STATUS
approved