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

4, 12, 15, 24, 21, 35, 40, 45, 60, 56, 63, 55, 77, 84, 80, 72, 99, 91, 112, 117, 105, 143, 144, 140, 132, 120, 165, 180, 153, 176, 168, 195, 156, 187, 171, 220, 221, 208, 209, 255, 247, 264, 260, 252, 231, 240, 285, 224, 273, 312, 308, 253, 323, 288, 299, 272

Offset: 1

Author

Eric W. Weisstein

Keywords

• nonn
• look

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. A046086, 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[b0]; Sow[b0]]], {c, 1, maxHypo}, {b, 1, maxHypo}]][[2, 1]] (* Jean-François Alcover, Oct 22 2012 *)