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 A054436 #9 Feb 14 2020 13:58:24 %S A054436 6,6,30,24,84,24,54,120,330,30,546,336,60,96,1224,216,1710,150,210, %T A054436 1320,3036,84,750,2184,486,294,6090,240,7440,384,726,4896,210,270, %U A054436 12654,6840,1014,180,17220,840,19866,726,540,12144,25944,336,4116,3000,1734,1014 %N A054436 Smallest area of a Pythagorean triangle with n as length of a leg. %F A054436 a(n) = n*A055527(n)/2. %p A054436 readlib(issqr): for a from 3 to 80 do for b from 1 by 1 while not issqr(a^2+b^2) do od: printf("%d, ",a*b/2) od: # C. Ronaldo %t A054436 a[n_] := For[k = 1, True, k++, If[IntegerQ[Sqrt[n^2+k^2]], Return[n k/2]]]; %t A054436 a /@ Range[3, 100] (* _Jean-François Alcover_, Feb 14 2020 *) %Y A054436 Cf. A009112, A046079, A046080, A046081, A054435, A055522, A055523, A055524, A055525, A055526, A055527. %K A054436 nonn %O A054436 3,1 %A A054436 _Henry Bottomley_, May 22 2000