%I #6 Dec 04 2016 19:46:27

%S 0,0,8,40,104,208,384,624,952,1384,1920,2584,3368,4304,5416,6696,8160,

%T 9808,11680,13784,16120,18696,21552,24672,28064,31752,35768,40128,

%U 44808,49816,55200,60952,67112,73664,80624,88032,95848,104120

%N Number of ordered triples (w,x,y) with all terms in {-n,...-1,1,...,n} and w^2>x^2+y^2.

%C For a guide to related sequences, see A211422.

%t t = Compile[{{u, _Integer}},

%t Module[{s = 0}, (Do[If[w^2 > x^2 + y^2,

%t s = s + 1], {w, #}, {x, #}, {y, #}] &[

%t Flatten[{Reverse[-#], #} &[Range[1, u]]]]; s)]];

%t Map[t[#] &, Range[0, 50]] (* A211631 *)

%t %/8 (* integers *)

%t (* _Peter J. C. Moses_, Apr 13 2012 *)

%Y Cf. A211422.

%K nonn

%O 0,3

%A _Clark Kimberling_, Apr 17 2012