cp's OEIS Frontend

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

%I A211632 #4 Apr 28 2012 20:49:31
%S A211632 0,0,24,88,224,448,776,1224,1840,2640,3624,4840,6304,8016,10008,12328,
%T A211632 14976,17952,21336,25112,29296,33920,39016,44568,50640,57264,64440,
%U A211632 72168,80496,89456,99032,109256,120208,131840,144168,157288
%N A211632 Number of ordered triples (w,x,y) with all terms in {-n,...-1,1,...,n} and 2w^2>x^2+y^2.
%C A211632 For a guide to related sequences, see A211422.
%t A211632 t = Compile[{{u, _Integer}},
%t A211632    Module[{s = 0}, (Do[If[2 w^2 > x^2 + y^2,
%t A211632          s = s + 1], {w, #}, {x, #}, {y, #}] &[
%t A211632       Flatten[{Reverse[-#], #} &[Range[1, u]]]]; s)]];
%t A211632 Map[t[#] &, Range[0, 50]]  (* A211632 *)
%t A211632 %/8                        (* integers *)
%Y A211632 Cf. A211422.
%K A211632 nonn
%O A211632 0,3
%A A211632 _Clark Kimberling_, Apr 17 2012