cp's OEIS Frontend

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

%I A211640 #5 Dec 04 2016 19:46:27
%S A211640 0,1,8,26,63,124,212,339,508,722,993,1321,1717,2186,2727,3358,4079,
%T A211640 4893,5809,6833,7974,9229,10613,12132,13786,15587,17532,19635,21904,
%U A211640 24335,26940,29731,32708,35871,39235,42800,46578,50575,54785,59232
%N A211640 Number of ordered triples (w,x,y) with all terms in {1,...,n} and w^2+x^2+y^2>n.
%C A211640 For a guide to related sequences, see A211422.
%t A211640 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A211640     (Do[If[w^2 + x^2 + y^2 > n, s = s + 1],
%t A211640         {w, 1, #}, {x, 1, #}, {y, 1, #}] &[n]; s)]];
%t A211640 Map[t[#] &, Range[0, 80]]     (* A211640 *)
%t A211640 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A211640 Cf. A211422.
%K A211640 nonn
%O A211640 0,3
%A A211640 _Clark Kimberling_, Apr 18 2012