%I#33 2020年1月7日10:51:56

%S 1,2,3,4,7,9,10,11,12,14,16,18,19,22,23,27,32,33,34,38,43,46,47,49，

%电话54,57,59,62,64,67,71,72,76,78,79,81,83,84,86,94,98,99103107108，

%电话：118121122124127129131133135142151152155158162

%N个数字从来不是原始希腊人三角形最长的边。

%下面的Mathematica程序访问由Sascha Kurz生成的原始Heronian三元组（PHT）表（参见链接）。该列表包含每个可能的PHT的三倍，最大边长为10000。三元组的形式为（a，b，c），其中a>=b>=c，其中a<=10000_Frank M Jackson，2017年12月4日

%H Ray Chandler，n表，a（n）表示n=1..10000（前1500个术语来自Frank M Jackson）

%H Sascha Kurz，<a href=“http://hdl.handle.net/10525/382“>关于Heronian三角形的生成</a>，《Serdica计算机杂志》。2（2）（2008）：第181-196页。

%H Sascha Kurz，<a href=“http://www.wm-archive.uni-bayreuth.de/index.php？id=554&amp;L=3“>原始海洛因三元组列表</a>，拜罗伊特大学。

%H Michael Somos，<a href=“http://grail.eecs.csuohio.edu/~somos/tritab.html“>希罗尼亚三角表</a>

%H P.Yiu，<a href=“http://math.fau.edu/yiu/RecreationalMathematics2003.pdf“>边<100的鹭三角形，《娱乐数学》，附录第9.3章，第81/360页。（这是一个360页的下载。）

%t lst1=ReadList[“C:/primitive_heronian_triangles_1_10000.txt”，｛数字，数字，数字｝]；lst=Union@表[lst1[[n]][[1]，{n，1，长度[lst1]}]；选择[范围[10000]！MemberQ[lst，#]&]（*有关原始海洛因三元组文件的下载，请参阅链接*）（*_Frank M Jackson_，2017年12月4日*）

%K nonn公司

%O 1、2

%A_Lekraj Beedassy，2006年6月10日