OFFSET
1,1
COMMENTS
Generated by starting indices k = 1, 2, 3, 5, 41, 101, 133, 135, 139, 147, 152, 154, 163, 174, 175..
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..5000
MATHEMATICA
lst={}; Do[p=Prime[n+0]^0+Prime[n+1]^1+Prime[n+2]^2+Prime[n+3]^3+Prime[n+4]^4; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
Select[1+#[[1]]+#[[2]]^2+#[[3]]^3+#[[4]]^4&/@Partition[Prime[Range[350]], 4, 1], PrimeQ] (* Harvey P. Dale, Nov 27 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 22 2009
EXTENSIONS
Definition clarified - R. J. Mathar, Oct 05 2009
STATUS
approved