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 A212061 #7 Dec 04 2016 19:46:29
%S A212061 0,1,3,5,12,14,18,20,30,45,49,51,65,67,71,75,106,108,134,136,150,154,
%T A212061 158,160,180,215,219,241,255,257,265,267,307,311,315,319,392,394,398,
%U A212061 402,422,424,432,434,448,478,482,484,540,599,657,661,675,677
%N A212061 Number of (w,x,y,z) with all terms in {1,...,n} and w*x=(y*z)^2.
%C A212061 For a guide to related sequences, see A211795.
%t A212061 t = Compile[{{n, _Integer}}, Module[{s = 0},
%t A212061 (Do[If[w*x == (y*z)^2, s = s + 1],
%t A212061 {w, 1, #}, {x, 1, #}, {y, 1, #}, {z, 1, #}] &[n]; s)]];
%t A212061 Map[t[#] &, Range[0, 50]] (* A212061 *)
%t A212061 (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y A212061 Cf. A211795.
%K A212061 nonn
%O A212061 0,3
%A A212061 _Clark Kimberling_, Apr 30 2012