%I #16 Sep 08 2022 08:45:12
%S 2,7,3907,19609,66431,4288307,54066637,71270179,351925757,512604457,
%T 1178420167,24065769961,30763687627,48616590079,130674467449,
%U 229898795029,329720803007,363825386107,886352920147,2479006804507
%N Primes of the form x^5 + x^4 + x^3 + x^2 + x + 2.
%H Vincenzo Librandi, <a href="/A088549/b088549.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Table[Plus@@(x^Range[5])+2,{x,0,100}],PrimeQ] (* _Harvey P. Dale_, Jun 19 2021 *)
%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..400] | IsPrime(a) where a is n^5 + n^4 + n^3 + n^2 + n + 2]
%K nonn
%O 1,1
%A _Cino Hilliard_, Nov 17 2003