OFFSET
1,3
COMMENTS
47 is the smallest number not in this sequence.
LINKS
Robert Price, Table of n, a(n) for n = 1..2170
Eric Weisstein's World of Mathematics, Prime-Generating Polynomials
EXAMPLE
4 is in this sequence since abs(4^5 - 99*4^4 + 3588*4^3 - 56822*4^2 + 348272*4 - 286397) = abs(1024-25344+229632-909152+1393088-286397) = 402851 is prime.
MATHEMATICA
Select[Range[0, 100], PrimeQ[#^5 - 99#^4 + 3588#^3 - 56822#^2 + 348272# - 286397] &]
PROG
(PARI) lista(nn) = for(n=0, nn, if(isprime(abs(n^5-99*n^4+3588*n^3-56822*n^2+348272*n-286397)), print1(n, ", "))); \\ Altug Alkan, Apr 29 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Apr 29 2016
STATUS
approved