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,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

Cf. A046087, A020882.

Sequence in context: A088509 A120098 A081859 * A272213 A225454 A131977

Adjacent sequences: A046083 A046084 A046085 * A046087 A046088 A046089

Keyword

nonn

Author

Eric W. Weisstein

Status

approved