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