OFFSET
1,1
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Prime-generating Polynomial
EXAMPLE
MATHEMATICA
Select[Table[33164857769+2*n^2, {n, 0, 100}], PrimeQ]
PROG
(PARI) for(n=0, 100, isprime(33164857769+2*n^2) && print1(33164857769+2*n^2, ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Waldemar Puszkarz, Apr 14 2016
STATUS
approved