A163244 Squares which can be represented as sum of consecutive primes.
36, 49, 100, 121, 144, 169, 324, 484, 576, 625, 841, 900, 961, 1089, 1156, 1369, 1444, 1681, 1764, 1849, 2116, 2209, 2304, 2916, 3249, 3600, 3844, 4225, 4900, 5184, 5329, 6241, 6889, 7056, 7396, 7744, 8100, 8649, 8836, 9025, 10201, 11449, 11881, 12100, 12769
Offset: 1
Keywords
Examples
36 = 5 + 7 + 11 + 13.
Crossrefs
Cf. A163247.
Programs
-
Mathematica
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 *)
Extensions
Missing terms reported by Zak Seidov added by Gaurav Kumar, Jul 25 2009