OFFSET
1,1
COMMENTS
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).
MATHEMATICA
lst={}; Do[p=n!+n^3+n^2+n+1; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 14 2009
STATUS
approved