

A120131


Longest side of primitive Heronian triangles, sorted.


10



5, 6, 8, 13, 13, 15, 15, 17, 17, 17, 20, 20, 21, 21, 24, 25, 25, 25, 26, 26, 28, 29, 29, 30, 30, 30, 35, 35, 36, 37, 37, 37, 37, 37, 39, 39, 39, 39, 40, 40, 40, 41, 41, 41, 41, 42, 44, 44, 45, 48, 48, 50, 50, 51, 51, 51, 51, 52, 52, 52, 52, 52, 52, 53, 53, 53, 53, 55, 55, 56
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



MATHEMATICA

hQ[a_, b_, c_] := IntegerQ@ Sqrt@ Block[{s = (a+b+c)/2}, s (sa) (sb) (sc)]; Reap[Do[If[ GCD[a, b, c] == 1 && hQ[a, b, c], Sow@ a], {a, 60}, {b, a}, {c, ab+1, b}]][[2, 1]] (* Giovanni Resta, May 21 2016 *)


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



