This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A212047 #8 Dec 04 2016 19:46:29
%S A212047 0,0,1,1,14,18,31,35,80,96,125,133,216,228,269,309,444,460,543,559,
%T A212047 720,784,853,873,1142,1202,1287,1363,1596,1624,1831,1859,2206,2314,
%U A212047 2427,2559,2962,2998,3123,3247,3758,3798,4103,4143,4524,4772,4925,4969,5712,5836
%N A212047 Number of (w,x,y,z) with all terms in {1,...,n} and w*x=4*y*z.
%C A212047 See A211795 for a guide to related sequences.
%t A212047 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A212047 (Do[If[w*x == 4 y*z, s = s + 1],
%t A212047 {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
%t A212047 Map[t[#] &, Range[0, 50]] (* A212047 *)
%t A212047 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A212047 Cf. A211795.
%K A212047 nonn
%O A212047 0,5
%A A212047 _Clark Kimberling_, Apr 28 2012