cp's OEIS Frontend

A211923 Number of (w,x,y,z) with all terms in {1,...,n} and 2*w*x>=3*y*z.

%I A211923 #9 Dec 04 2016 19:46:28
%S A211923 0,0,5,31,96,238,504,921,1585,2560,3896,5698,8113,11165,15042,19860,
%T A211923 25733,32814,41320,51271,63015,76686,92385,110397,131022,154298,
%U A211923 180579,210119,243109,279810,320658,365615,415291,469881,529582,594834,666111,743335,827162
%N A211923 Number of (w,x,y,z) with all terms in {1,...,n} and 2*w*x>=3*y*z.
%C A211923 a(n)+A211920(n)=n^4.
%C A211923 See A211795 for a guide to related sequences.
%t A211923 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A211923 (Do[If[2 w*x >= 3 y*z, s = s + 1],
%t A211923 {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
%t A211923 Map[t[#] &, Range[0, 40]] (* A211923 *)
%t A211923 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A211923 Cf. A211795.
%K A211923 nonn
%O A211923 0,3
%A A211923 _Clark Kimberling_, Apr 28 2012