cp's OEIS Frontend

A212095 Number of (w,x,y,z) with all terms in {1,...,n} and w^2>=x^2+y^2+z^2.

%I A212095 #11 Jun 26 2022 17:43:15
%S A212095 0,0,1,8,25,63,141,268,464,760,1170,1734,2472,3430,4650,6164,8012,
%T A212095 10247,12933,16108,19827,24192,29199,34957,41525,48967,57382,66859,
%U A212095 77456,89235,102335,116794,132748,150314,169545,190574,213490,238420
%N A212095 Number of (w,x,y,z) with all terms in {1,...,n} and w^2>=x^2+y^2+z^2.
%C A212095 a(n)+A212092(n)=n^4.  For a guide to related sequences, see A211795.
%t A212095 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A212095 (Do[If[w^2 >= x^2 + y^2 + z^2, s = s + 1],
%t A212095 {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
%t A212095 Map[t[#] &, Range[0, 50]] (* A212095 *)
%t A212095 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A212095 Cf. A211795.
%Y A212095 Partial sums of A253663.
%K A212095 nonn
%O A212095 0,4
%A A212095 _Clark Kimberling_, May 02 2012