%I
%S 5,6,8,10,12,13,13,15,15,15,16,17,17,17,18,20,20,20,21,21,24,24,24,25,
%T 25,25,25,26,26,26,26,28,29,29,30,30,30,30,30,30,30,32,34,34,34,35,35,
%U 35,36,36,37,37,37,37,37,39,39,39,39,39,39,40,40,40,40,40,40,40,41,41
%N Longest side of congruent triangles with integer sides and positive integer area, ordered by longest side, then second longest side and finally shortest side.
%H Ray Chandler, <a href="/A055592/b055592.txt">Table of n, a(n) for n = 1..10000</a>
%t max = 41; triangles = Reap[Do[s = (a+b+c)/2; area = Sqrt[s*(sa)*(sb)*(sc)]; 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]](* _JeanFrançois Alcover_, Jun 12 2012 *)
%Y Cf. A055593, A055594, A055595.
%K nonn
%O 1,1
%A _Henry Bottomley_, May 26 2000
