|
%I #12 Nov 09 2016 02:43:42
%S 16,625,4096,10000,28561,83521,104976,160000,390625,456976,707281,
%T 1048576,1336336,1874161,2560000,2825761,4100625,6250000,7311616,
%U 7890481,11316496,13845841,17850625,21381376,26873856,28398241,29986576
%N a(n) = A000404(n)^4.
%H G. C. Greubel, <a href="/A135786/b135786.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]]}]]]^4 (* _G. C. Greubel_, Nov 09 2016 *)
%Y Cf. A000404, A050803, A135784, A060803, A135787, A135788.
%K nonn
%O 1,1
%A _Artur Jasinski_, Nov 29 2007
%E Definition corrected by _Zak Seidov_, Aug 05 2009
|
