login
A046087
Middle member 'b' of the primitive Pythagorean triples (a,b,c) ordered by increasing c, then b.
23
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,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[b0]; Sow[b0]]], {c, 1, maxHypo}, {b, 1, maxHypo}]][[2, 1]] (* Jean-François Alcover, Oct 22 2012 *)
CROSSREFS
Sequence in context: A376429 A002365 A212245 * A081872 A120097 A088510
KEYWORD
nonn,look
STATUS
approved