OFFSET
1,1
COMMENTS
Corresponding primes of form Sum[ Prime[k], {k,1,n} ] are listed in A122128[n] = {97,1567204831,771745495049,...}.
MATHEMATICA
Select[Range[1514], PrimeQ[Sum[Prime[k]^4, {k, 1, #1}]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 20 2006
STATUS
approved