OFFSET
1,1
COMMENTS
MATHEMATICA
Select[Table[Sum[Prime[k]^5, {k, 1, n}], {n, 1, 1000}], PrimeQ[ #1]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 20 2006
STATUS
approved