%I #10 Sep 08 2022 08:45:11
%S 2,5,41,157,401,821,2381,3617,12721,20441,25261,37061,81401,169457,
%T 278917,333341,462541,499361,712981,1168757,1455781,1534217,1615421,
%U 2163461,2705081,3069797,3198281,3605141,4045121,4357481,4519517,4855541
%N Primes of the form x^3+x^2+x+2.
%H Vincenzo Librandi, <a href="/A088547/b088547.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Table[n^3+n^2+n+2,{n,0,2000}],PrimeQ] (* _Vincenzo Librandi_, Jul 16 2012 *)
%o (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",")); ) }
%o (Magma) [ a: n in [0..250] | IsPrime(a) where a is n^3+n^2+n+2]; // _Vincenzo Librandi_, Jul 16 2012
%K nonn,easy
%O 1,1
%A _Cino Hilliard_, Nov 17 2003
%E Added the first term (2) by _Vincenzo Librandi_, Jul 16 2012