cp's OEIS Frontend

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

%I A211633 #5 Dec 04 2016 19:46:27
%S A211633 0,0,0,8,32,80,160,264,416,624,864,1176,1552,2000,2528,3144,3856,4640,
%T A211633 5552,6584,7712,8960,10352,11880,13520,15328,17296,19416,21712,24176,
%U A211633 26832,29640,32672,35904,39312,42968,46816,50896,55184,59736
%N A211633 Number of ordered triples (w,x,y) with all terms in {1,...,n} and w^2>2x^2+2y^2.
%C A211633 For a guide to related sequences, see A211422.
%t A211633 t = Compile[{{u, _Integer}},
%t A211633    Module[{s = 0}, (Do[If[w^2 > 2 x^2 + 2 y^2,
%t A211633          s = s + 1], {w, #}, {x, #}, {y, #}] &[
%t A211633       Flatten[{Reverse[-#], #} &[Range[1, u]]]]; s)]];
%t A211633 Map[t[#] &, Range[0, 50]]  (* A211633 *)
%t A211633 %/8                        (* integers *)
%t A211633 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A211633 Cf. A211422.
%K A211633 nonn
%O A211633 0,4
%A A211633 _Clark Kimberling_, Apr 17 2012