|
|
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 (s-a) (s-b) (s-c)]; Reap[Do[If[ GCD[a, b, c] == 1 && hQ[a, b, c], Sow@ a], {a, 60}, {b, a}, {c, a-b+1, b}]][[2, 1]] (* Giovanni Resta, May 21 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|