A135784 - OEIS

%I #7 Nov 09 2016 02:44:52

%S 4,25,64,100,169,289,324,400,625,676,841,1024,1156,1369,1600,1681,

%T 2025,2500,2704,2809,3364,3721,4225,4624,5184,5329,5476,6400,6724,

%U 7225,7921,8100,9409,9604,10000,10201,10816,11236,11881,12769,13456,13689,14884

%N a(n) = A000404(n)^2.

%H G. C. Greubel, <a href="/A135784/b135784.txt">Table of n, a(n) for n = 1..1400</a>

%t 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 *)

%Y Cf. A000404, A060803, A135786, A135787, A135788.

%K nonn

%O 1,1

%A _Artur Jasinski_, Nov 29 2007