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 A212019 #9 Dec 04 2016 19:46:28
%S A212019 0,0,4,8,24,32,64,76,124,154,214,234,340,364,452,532,664,696,854,890,
%T A212019 1086,1206,1350,1394,1692,1794,1966,2108,2396,2452,2822,2882,3212,
%U A212019 3408,3636,3860,4360,4432,4688,4920,5470,5550,6090,6174,6642,7056
%N A212019 Number of (w,x,y,z) with all terms in {1,...,n} and w*x=2*y*z.
%C A212019 Each term is divisible by 2. See A211795 for a guide to related sequences.
%H A212019 Bo Gyu Jeong, <a href="/A212019/b212019.txt">Table of n, a(n) for n = 0..200</a>
%e A212019 a(2) counts these four 4-tuples: (1,2,1,1), (2,1,1,1), (2,2,1,2), (2,2,2,1).
%t A212019 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A212019 (Do[If[w*x == 2 y*z, s = s + 1],
%t A212019 {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
%t A212019 Map[t[#] &, Range[0, 60]] (* A212019 *)
%t A212019 %/2 (* integers *)
%t A212019 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A212019 Cf. A211795.
%K A212019 nonn
%O A212019 0,3
%A A212019 _Clark Kimberling_, Apr 28 2012