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]]; A055593 = Sort[triangles, #1[[3]]*max^2 + #1[[2]]*max + #1[[1]] < #2[[3]]* max^2 + #2[[2]]*max + #2[[1]] &][[All, 2]](* Jean-François Alcover, Jun 12 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, May 26 2000
STATUS
approved