|
%I #12 Apr 26 2020 20:37:06
%S 0,0,5,23,79,188,402,742,1283,2059,3164,4633,6615,9112,12299,16253,
%T 21114,26924,33932,42161,51885,63153,76182,91068,108172,127453,149257,
%U 173726,201163,231591,265520,302889,344195,389508,439180,493458
%N Number of 4-tuples (w,x,y,z) with all terms in {1,...,n} and w*x >= 2*y*z.
%C a(n) + A211795(n) = n^4.
%C See A211795 for a guide to related sequences.
%H Bo Gyu Jeong, <a href="/A211809/b211809.txt">Table of n, a(n) for n = 0..200</a>
%t t = Compile[{{n, _Integer}}, Module[{s = 0},
%t (Do[If[w*x >= 2 y*z, s = s + 1],
%t {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
%t Map[t[#] &, Range[0, 40]] (* A211809 *)
%t (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y Cf. A211795.
%K nonn
%O 0,3
%A _Clark Kimberling_, Apr 27 2012
|
