%I#8 2019年11月3日17:55:04

%S 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，

%电话：104105110114115119120124126130132133140144146

%N原始希腊人三角形面积的六分之一。

%C Mathematica程序检查所有边长小于等于900的原始Heronian三角形，这确保我们找到了所有面积为/6小于等于150的三角形_T.D.Noe_，2004年6月22日

%H Giovanni Resta，n的表格，n=1..10000的a（n）</a>

%t nn=900；lst={}；Do[s=（a+b+c）/2；如果[IntegerQ[s]&&GCD[a，b，c]==1，面积2=s（s-a）（s-b）（s-c）；如果[area2>0&&IntegerQ[Sqrt[area2]]，追加到[lst，Sqrt[区域2]]]，{a，nn}，{b，a}，}；联合[Select[lst，#<nn&]]/6

%Y参考A072294。

%K nonn公司

%O 1,2号机组

%A _Lekraj Beedassy，2003年6月18日

%E来自T.D.Noe_的更多条款，2004年6月22日