OFFSET
1,1
COMMENTS
n=-2 produces the prime 13. - Robert Price, Apr 25 2016
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Prime-Generating Polynomial.
MAPLE
f:= seq(n^3+n^2+17, n = 0..100); select(isprime, f); # G. C. Greubel, Feb 06 2020
MATHEMATICA
Select[Table[n^3+n^2+17, {n, 0, 100}], PrimeQ] (* Vincenzo Librandi, Dec 08 2011 *)
PROG
(Magma) [a: n in [0..100] | IsPrime(a) where a is n^3+n^2+17]; // Vincenzo Librandi, Dec 08 2011
(PARI) for(n=0, 100, my(m=n^3+n^2+17); if(isprime(m), print1(m ", "))) \\ G. C. Greubel, Feb 06 2020
(Sage) [n^3+n^2+17 for n in (0..100) if is_prime(n^3+n^2+17) ] # G. C. Greubel, Feb 06 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
17 added by Vincenzo Librandi, Dec 08 2011
Altered definition to require that n be nonnegative. - Robert Price, Apr 25 2016
STATUS
approved