A110979 Squares equal to the sum of the first k primes minus 1.

1, 4, 9, 16, 196, 839056, 7796654478001

Offset

1,2

Comments

No more terms < 7472966967498, sum of first 10^6 primes minus 1. - Ray Chandler, Oct 07 2005

Links

Table of n, a(n) for n=1..7.

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

Cf. A007504, A110997.

Intersection of A000290 and A237589.

Sequence in context: A089149 A082920 A204434 * A073173 A313352 A253601

Adjacent sequences: A110976 A110977 A110978 * A110980 A110981 A110982

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