OFFSET
1,1
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
F. Richman, Pythagorean Triples
Eric Weisstein's World of Mathematics, Pythagorean Triple.
MATHEMATICA
maxHypo = 389; r[b_, c_] := Reduce[0 < a <= b < c && a^2 + b^2 == c^2, a, Integers]; Reap[Do[r0 = r[b, c]; If[r0 =!= False, {a0, b0, c0} = {a, b, c} /. ToRules[r0]; If[GCD[a0, b0, c0] == 1, Print[a0]; Sow[a0]]], {c, 1, maxHypo}, {b, 1, maxHypo}]][[2, 1]] (* Jean-François Alcover, Oct 22 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved