A055592 Longest side of congruent triangles with integer sides and positive integer area, ordered by longest side, then second longest side and finally shortest side.

5, 6, 8, 10, 12, 13, 13, 15, 15, 15, 16, 17, 17, 17, 18, 20, 20, 20, 21, 21, 24, 24, 24, 25, 25, 25, 25, 26, 26, 26, 26, 28, 29, 29, 30, 30, 30, 30, 30, 30, 30, 32, 34, 34, 34, 35, 35, 35, 36, 36, 37, 37, 37, 37, 37, 39, 39, 39, 39, 39, 39, 40, 40, 40, 40, 40, 40, 40, 41, 41

Offset

1,1

Links

Ray Chandler, Table of n, a(n) for n = 1..10000

Mathematica

max = 41; triangles = Reap[Do[s = (a+b+c)/2; area = Sqrt[s*(s-a)*(s-b)*(s-c)]; If[IntegerQ[area] && area > 0, Sow[{a, b, c, area}]], {a, 1, max}, {b, a, max}, {c, b, max}]][[2, 1]]; A055592 = Sort[triangles, #1[[3]]*max^2 + #1[[2]]*max + #1[[1]] < #2[[3]]* max^2 + #2[[2]]*max + #2[[1]] &][[All, 3]](* Jean-François Alcover, Jun 12 2012 *)

Crossrefs

Cf. A055593, A055594, A055595.

Sequence in context: A247047 A218866 A227760 * A242731 A151976 A331199

Adjacent sequences: A055589 A055590 A055591 * A055593 A055594 A055595

Keyword

nonn

Author

Henry Bottomley, May 26 2000

Status

approved