%I #5 Nov 17 2018 18:24:14
%S 0,1,0,1,2,2,1,2,2,3,4,3,2,5,3,4,7,4,4,6,5,6,6,6,7,9,6,6,11,8,7,12,5,
%T 9,12,9,9,10,12,10,14,11,7,14,11,12,16,10,12,19,12,13,16,14,13,18,14,
%U 12,18,16,17,21,12,16,23,17,20,18,17,18,24,18,13,28,18,19,25,16,19,26,24
%N Number of primitive Pythagorean quadruples with diagonal 2n+1.
%C There are no such quadruples with diagonal 2n. - _Michael Somos_, Nov 17 2018
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PythagoreanQuadruple.html">Pythagorean Quadruple.</a>
%t a[ n_] := With[ {w = 2 n + 1}, Sum[ Boole[x^2 + y^2 + z^2 == w^2 && 1 == GCD[x, y, z, w]], {z, w - 1}, {y, z}, {x, y}]]; (* _Michael Somos_, Nov 17 2018 *)
%o (PARI) {a(n) = my(w = 2*n+1); sum(z=1, w-1, sum(y=1, z, sum(x=1, y, x^2 + y^2 + z^2 == w^2 && 1 == gcd([x, y, z, w]))))}; /* _Michael Somos_, Nov 17 2018 */
%Y Cf. A096907-A096909, A097263-A097265.
%K nonn
%O 0,5
%A _Ray Chandler_, Aug 16 2004