OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Prime-Generating Polynomials
EXAMPLE
1511 is in this sequence since 43*4^2 - 537*4 + 2971 = 688-2148+2971 = 1511 is prime.
MATHEMATICA
n = Range[0, 100]; Select[43n^2 - 537n + 2971, PrimeQ[#] &]
PROG
(PARI) lista(nn) = for(n=0, nn, if(ispseudoprime(p=43*n^2 - 537*n + 2971), print1(p, ", "))); \\ Altug Alkan, Apr 24 2016
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Robert Price, Apr 24 2016
STATUS
approved