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 A054875 #15 Dec 03 2018 02:47:22 %S A054875 0,0,0,0,1,1,0,1,0,1,0,1,2,0,3,1,3,1,0,3,2,0,0,3,4,4,0,1,2,7,0,1,0,3, %T A054875 3,2,5,0,6,7,4,4,0,2,4,0,0,5,0,6,7,10,4,1,3,4,0,4,0,10,3,0,3,1,11,3,0, %U A054875 8,1,5,0,4,6,7,13,0,3,9,0,10,0,6,0 %N A054875 Number of pairwise incongruent triangles with integer sides and positive integer area and longest side of length n. %H A054875 Amiram Eldar, <a href="/A054875/b054875.txt">Table of n, a(n) for n = 1..10000</a> %t A054875 okQ[x_, y_, z_] := If[x + y <= z, False, Module[{s = (x + y + z)/2}, IntegerQ[ Sqrt[s(s-x)(s-y)(s-z)]]] ]; a[n_] := Module[{num = 0}, Do[Do[If[okQ[x,y,n], num++], {x,1,y}], {y,1,n}]; num]; Array[a, 100] (* _Amiram Eldar_, Nov 22 2018 *) %Y A054875 Cf. A054876, A055592, A070787, A123323, A239246, A322105. %K A054875 nonn %O A054875 1,13 %A A054875 _Henry Bottomley_, May 26 2000 %E A054875 Name and offset changed to align with 2012 changes to A054876 by _Peter Munn_, Nov 23 2018