cp's OEIS Frontend

A212054 Number of (w,x,y,z) with all terms in {1,...,n} and w*x>y*z+1.

%I A212054 #7 Dec 04 2016 19:46:29
%S A212054 0,0,3,25,98,260,571,1089,1898,3084,4755,7017,9994,13836,18691,24705,
%T A212054 32066,40964,51579,64145,78850,95956,115723,138385,164170,193436,
%U A212054 226467,263521,304930,351076,402195,458777,521082,589532,664547
%N A212054 Number of (w,x,y,z) with all terms in {1,...,n} and w*x>y*z+1.
%C A212054 a(n)+A212053(n)=n^4.  See A211795 for a guide to related sequences.
%t A212054 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A212054 (Do[If[w*x > y*z + 1, s = s + 1],
%t A212054 {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
%t A212054 Map[t[#] &, Range[0, 50]] (* A212054 *)
%t A212054 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A212054 Cf. A211795.
%K A212054 nonn
%O A212054 0,3
%A A212054 _Clark Kimberling_, Apr 29 2012