A046086 Smallest member 'a' of the primitive Pythagorean triples (a,b,c) ordered by increasing c, then b.

3, 5, 8, 7, 20, 12, 9, 28, 11, 33, 16, 48, 36, 13, 39, 65, 20, 60, 15, 44, 88, 24, 17, 51, 85, 119, 52, 19, 104, 57, 95, 28, 133, 84, 140, 21, 60, 105, 120, 32, 96, 23, 69, 115, 160, 161, 68, 207, 136, 25, 75, 204, 36, 175, 180, 225, 76, 27, 252, 152, 135, 189

Offset: 1

Author

Eric W. Weisstein

Keywords

• nonn

Links

• Ivan Neretin, Table of n, a(n) for n = 1..10000
• F. Richman, Pythagorean Triples
• Eric Weisstein's World of Mathematics, Pythagorean Triple.

Crossrefs

Cf. A046087, A020882.

Programs

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 *)