OFFSET
1,2
COMMENTS
No more terms < 7472966967498, sum of first 10^6 primes minus 1. - Ray Chandler, Oct 07 2005
MATHEMATICA
Select[Accumulate[Prime[Range[1000]]]-1, IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Jun 09 2022 *)
PROG
(PARI) lista(nn) = my(s=-1); forprime(p=2, nn, s+=p; if(issquare(s), print1(s, ", "))) \\ Jinyuan Wang, Aug 10 2023
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Giovanni Teofilatto, Sep 30 2005
EXTENSIONS
a(6) corrected by Ray Chandler, Oct 07 2005
a(7) from Jinyuan Wang, Aug 10 2023
STATUS
approved