|
|
|
|
4, 25, 64, 100, 169, 289, 324, 400, 625, 676, 841, 1024, 1156, 1369, 1600, 1681, 2025, 2500, 2704, 2809, 3364, 3721, 4225, 4624, 5184, 5329, 5476, 6400, 6724, 7225, 7921, 8100, 9409, 9604, 10000, 10201, 10816, 11236, 11881, 12769, 13456, 13689, 14884
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
nMax = 100; p := Floor[Sqrt[nMax - 1]]; Union[Flatten[Table[a^2 + b^2, {a, p}, {b, a, Floor[Sqrt[nMax - a^2]]}]]]^2 (* G. C. Greubel, Nov 09 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|