OFFSET
1,1
EXAMPLE
a(1)=4 since 3*4*5=60 is smallest possible positive product
MATHEMATICA
maxShortLeg = 66; terms = 67;
r[a_] := {a, b, c} /. {ToRules[Reduce[a <= b < c && a^2+b^2 == c^2, {b, c}, Integers]]};
abc = r /@ Complement[Range[maxShortLeg], {1, 2, 4}] // Flatten[#, 1]&;
SortBy[abc, Times @@ # &][[;; terms, 2]] (* Jean-François Alcover, Nov 21 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Aug 01 2000
STATUS
approved