|
|
A083875
|
|
One-sixth the areas of primitive Heronian triangles sorted.
|
|
11
|
|
|
1, 2, 4, 5, 6, 7, 10, 11, 12, 14, 15, 19, 20, 21, 22, 26, 28, 30, 33, 34, 35, 36, 39, 40, 42, 44, 45, 48, 50, 51, 55, 56, 60, 65, 66, 68, 70, 76, 77, 78, 80, 84, 85, 87, 88, 91, 95, 104, 105, 110, 114, 115, 119, 120, 124, 126, 130, 132, 133, 140, 144, 146
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The Mathematica program examines all primitive Heronian triangles having longest side <= 900, which guarantees that we have found all triangles with area/6 <= 150. - T. D. Noe, Jun 22 2004
|
|
LINKS
|
|
|
MATHEMATICA
|
nn=900; lst={}; Do[s=(a+b+c)/2; If[IntegerQ[s] && GCD[a, b, c]==1, area2=s(s-a)(s-b)(s-c); If[area2>0 && IntegerQ[Sqrt[area2]], AppendTo[lst, Sqrt[area2]]]], {a, nn}, {b, a}, {c, b}]; Union[Select[lst, #<nn&]]/6
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|