%I #9 Aug 27 2022 03:15:52
%S 2,5,17,109
%N Primes of the form k! + k^3 + k^2 + k + 1.
%C The associated k are 0,1,2,4,... (and no further between 4 and 2020, i.e., the next prime has at least 5802 digits).
%t lst={};Do[p=n!+n^3+n^2+n+1;If[PrimeQ[p],AppendTo[lst,p]],{n,0,6!}];lst
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jun 14 2009
|