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