OFFSET
1,1
LINKS
MATHEMATICA
Transpose[Select[Split[Sort[Total[#]&/@(Subsets[Range[1000], {2}]^2)]], Length[#]==9&]][[1]] (* Harvey P. Dale, Jul 08 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved