OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[n^3+n^2+n+2, {n, 0, 2000}], PrimeQ] (* Vincenzo Librandi, Jul 16 2012 *)
PROG
(PARI) polypn(n, p) = { for(x=1, n, if(p%2, y=2, y=1); for(m=1, p, y=y+x^m; ); if(isprime(y), print1(y", ")); ) }
(Magma) [ a: n in [0..250] | IsPrime(a) where a is n^3+n^2+n+2]; // Vincenzo Librandi, Jul 16 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Cino Hilliard, Nov 17 2003
EXTENSIONS
Added the first term (2) by Vincenzo Librandi, Jul 16 2012
STATUS
approved