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