|
%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
|
