OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Position[Accumulate[Prime[Range[2000]]^2]+1, _?PrimeQ]//Flatten (* Harvey P. Dale, Sep 07 2019 *)
PROG
(Python)
import sympy
sum = p = 1
for n in range(1, 3001):
while not sympy.isprime(p): p+=1 # find the n'th prime
sum += p*p
p+=1
if sympy.isprime(sum): print str(n)+', ',
(PARI) lista(nn) = for(n=1, nn, if(isprime(1+sum(i=1, n, prime(i)^2)), print1(n, ", "))); \\ Altug Alkan, Oct 01 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Sep 30 2016
STATUS
approved