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 A057100 #6 Nov 21 2019 08:16:05 %S A057100 5,10,13,15,17,20,25,26,25,29,30,41,37,34,35,39,40,50,61,45,52,51,50, %T A057100 65,53,55,85,58,65,60,75,82,65,74,68,65,70,78,113,73,101,75,85,80,85, %U A057100 91,100,89,85,122,87,90,145,123,104,95,111,102,97,100,145,130,125,106 %N A057100 Hypotenuses of Pythagorean triangles (ordered by the product of the sides). %F A057100 a(n) =A057096(n)/(A057098(n)*A057099(n)) =sqrt(A057098(n)^2+A057099(n)^2) %e A057100 a(1)=5 since 3*4*5=60 is smallest possible positive product %t A057100 maxShortLeg = 66; terms = 64; %t A057100 r[a_] := {a, b, c} /. {ToRules[Reduce[a <= b < c && a^2+b^2 == c^2, {b, c}, Integers]]}; %t A057100 abc = r /@ Complement[Range[maxShortLeg], {1, 2, 4}] // Flatten[#, 1]&; %t A057100 SortBy[abc, Times @@ # &][[;; terms, 3]] (* _Jean-François Alcover_, Nov 21 2019 *) %Y A057100 Cf. A009000, A057096. %K A057100 nonn %O A057100 1,1 %A A057100 _Henry Bottomley_, Aug 01 2000