cp's OEIS Frontend

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

%I A211634 #5 Dec 04 2016 19:46:27
%S A211634 0,1,7,22,51,99,168,265,393,556,760,1008,1307,1659,2067,2538,3076,
%T A211634 3687,4372,5136,5985,6924,7954,9083,10316,11656,13105,14667,16351,
%U A211634 18162,20100,22172,24379,26729,29226,31871,34675,37638,40767,44061
%N A211634 Number of ordered triples (w,x,y) with all terms in {1,...,n} and w^2<=x^2+y^2.
%C A211634 For a guide to related sequences, see A211422.
%t A211634 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A211634     (Do[If[w^2 <= x^2 + y^2, s = s + 1],
%t A211634         {w, 1, #}, {x, 1, #}, {y, 1, #}] &[n]; s)]];
%t A211634 Map[t[#] &, Range[0, 50]]   (* A211634 *)
%t A211634 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A211634 Cf. A211422.
%K A211634 nonn
%O A211634 0,3
%A A211634 _Clark Kimberling_, Apr 18 2012