OFFSET
1,1
LINKS
Robert Price, Table of n, a(n) for n = 1..4058
Eric Weisstein's World of Mathematics, Prime-Generating Polynomials
EXAMPLE
5419 is in this sequence since 8*4^2 - 488*4 + 7243 = 128-1952+7243 = 5419 is prime.
MATHEMATICA
n = Range[0, 100]; Select[Abs[8n^2 - 488n + 7243], PrimeQ[#] &]
PROG
(PARI) lista(nn) = for(n=0, nn, if(isprime(p=abs(8*n^2-488*n+7243)), print1(p, ", "))); \\ Altug Alkan, Apr 21 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Apr 21 2016
STATUS
approved