OFFSET
1,1
EXAMPLE
n=1->701, n=3->247, n=4->4481, n=5->7129, n=7->15731, n=11->53551,...
(1+0)^0+(1+1)^1+(1+2)^2+(1+3)^3+(1+4)^4=1+2+9+64+625=701
MATHEMATICA
lst={}; Do[p=n^0+(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4; If[PrimeQ[p], AppendTo[lst, p]], {n, 2*5!}]; lst
Select[1+#[[1]]+#[[2]]^2+#[[3]]^3+#[[4]]^4&/@Partition[ Range[ 200], 5, 1], PrimeQ] (* Harvey P. Dale, Jan 11 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 19 2008, Jan 30 2009
EXTENSIONS
Edited by N. J. A. Sloane, Aug 15 2010 at the suggestion of D. S. McNeil
STATUS
approved