cp's OEIS Frontend

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

%I A212100 #7 Dec 04 2016 19:46:29
%S A212100 0,0,1,9,35,89,198,373,651,1059,1632,2407,3432,4767,6453,8536,11097,
%T A212100 14189,17906,22308,27451,33438,40332,48291,57313,67602,79200,92187,
%U A212100 106774,122952,140954,160835,182772,206869,233238,262110,293535
%N A212100 Number of (w,x,y,z) with all terms in {1,...,n} and w^3>=x^3+y^3+z^3.
%C A212100 a(n)+A212097(n)=n^4.  For a guide to related sequences, see A211795.
%t A212100 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A212100 (Do[If[w^3 >= x^3 + y^3 + z^3, s = s + 1],
%t A212100 {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
%t A212100 Map[t[#] &, Range[0, 40]] (* A212100 *)
%t A212100 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A212100 Cf. A211795.
%K A212100 nonn
%O A212100 0,4
%A A212100 _Clark Kimberling_, May 03 2012