OFFSET
1,3
COMMENTS
80 is the smallest number not in this sequence.
See A005846 for the corresponding primes.
LINKS
Robert Price, Table of n, a(n) for n = 1..4179
Eric Weisstein's World of Mathematics, Prime-Generating Polynomials
EXAMPLE
4 is in this sequence since 4^2 - 79*4 + 1601 = 16-316+1601 = 1301 is prime.
MATHEMATICA
Select[Range[0, 100], PrimeQ[#^2 - 79# + 1601 ] &]
PROG
(PARI) lista(nn) = for(n=0, nn, if(isprime(n^2-79*n+1601), print1(n, ", "))); \\ Altug Alkan, May 06 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, May 06 2016
STATUS
approved