OFFSET
1,1
EXAMPLE
36 = 5 + 7 + 11 + 13.
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gaurav Kumar, Jul 23 2009
EXTENSIONS
Missing terms reported by Zak Seidov added by Gaurav Kumar, Jul 25 2009
STATUS
approved