[go: up one dir, main page]

login
A046086
Smallest member 'a' of the primitive Pythagorean triples (a,b,c) ordered by increasing c, then b.
21
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
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
Sequence in context: A088509 A120098 A081859 * A272213 A225454 A131977
KEYWORD
nonn
STATUS
approved