- n = 300; Sort@
- Flatten@Table[x^2 + y^2, {x, 1, Sqrt[n]}, {y, x + 1, Sqrt[n - x^2]}]
复制代码
{5,10,13,17,20,25,26,29,34,37,40,41,45,50,52,53,58,61,65,65,68,73,74,80,82,85,85,89,90,97,100,101,104,106,109,113,116,117,122,125,125,130,130,136,137,145,145,146,148,149,153,157,160,164,169,170,170,173,178,180,181,185,185,193,194,197,200,202,205,205,208,212,218,221,221,225,226,229,232,233,234,241,244,245,250,250,257,260,260,261,265,265,269,272,274,277,281,289,290,290,292,293,296,298} |