A088547 Primes of the form x^3+x^2+x+2.

2, 5, 41, 157, 401, 821, 2381, 3617, 12721, 20441, 25261, 37061, 81401, 169457, 278917, 333341, 462541, 499361, 712981, 1168757, 1455781, 1534217, 1615421, 2163461, 2705081, 3069797, 3198281, 3605141, 4045121, 4357481, 4519517, 4855541

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

Sequence in context: A002592 A054553 A185052 * A009457 A175172 A218057

Adjacent sequences: A088544 A088545 A088546 * A088548 A088549 A088550

Keyword

nonn,easy

Author

Cino Hilliard, Nov 17 2003

Extensions

Added the first term (2) by Vincenzo Librandi, Jul 16 2012

Status

approved