login
Squares which can be represented as sum of consecutive primes.
2

%I #14 Jul 08 2022 08:57:34

%S 36,49,100,121,144,169,324,484,576,625,841,900,961,1089,1156,1369,

%T 1444,1681,1764,1849,2116,2209,2304,2916,3249,3600,3844,4225,4900,

%U 5184,5329,6241,6889,7056,7396,7744,8100,8649,8836,9025,10201,11449,11881,12100,12769

%N Squares which can be represented as sum of consecutive primes.

%e 36 = 5 + 7 + 11 + 13.

%t With[{nn=50},Take[Table[Select[Total/@Partition[Prime[Range[ 1000]],n,1], IntegerQ[ Sqrt[ #]]&],{n,2,nn}]//Flatten//Union,nn]] (* _Harvey P. Dale_, May 27 2017 *)

%Y Cf. A163247.

%K nonn

%O 1,1

%A _Gaurav Kumar_, Jul 23 2009

%E Missing terms reported by _Zak Seidov_ added by _Gaurav Kumar_, Jul 25 2009