OFFSET
1,1
COMMENTS
There is necessarily an odd number of terms in the sum a(n) = 3^2+5^2+...+p(k)^2, i.e. the index k=A160358(n)+1 of the last prime in this sum is even.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
P:= select(isprime, [seq(i, i=3..10000, 2)]):
S:= ListTools:-PartialSums(map(`^`, P, 2)):
select(isprime, S); # Robert Israel, May 13 2024
MATHEMATICA
Select[Accumulate[Prime[Range[2, 400]]^2], PrimeQ] (* Harvey P. Dale, Jul 17 2021 *)
PROG
(PARI) s=0; forprime( p=3, 9999, isprime(s+=p^2) & print1(s", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, May 18 2009
STATUS
approved