cp's OEIS Frontend

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.

A057100 Hypotenuses of Pythagorean triangles (ordered by the product of the sides).

This page as a plain text file.
%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