%I#31 2021年10月4日08:23:13

%S 1,2,2,3,3,34,4,3,4,4,1,5,5,4,5,5，5,4,16,6,5,6,6,16,5,16,6，5,7,7,6,5，

%T 7,7,7,1,6,6,8,8,7,8,9,8,6,7,6,8，8,8,1,7,9,9,9，9,8,12,7,9,1,9,8，

%U 9,8,8,7,10,10,10-9,10,9,10.9,8,9,8,10,10

%N整数三角形的最大边[A070080（N）<=A070081（N）<=a（N）]，按周长排序，边按字典顺序排列。

%H G.C.Greubel，n表，a（n）用于前55行，扁平</a>

%H Reinhard Zumkeller，整数三角形</a>

%F a（n）=A070083（n）-A070080（n）-A070081（n）。

%t m=55（*最大周长*）；

%t sides[per_]：=选择[Reverse/@Integer Partitions[per，{3}，Range[Ceiling[per/2]]]，#[[1]]<per/2&#[2]]<per/2&#[3]]<per/2；

%t三角形=删除案例[表[sides[per]，{per，3，m}]，{}]//扁平[#，1]//SortBy[Total[#]m^3+#[1]]m^2+#[2]]m+#[1]]；

%t三角形[[All，3]]（*_Jean-François Alcover_，2017年7月9日*）

%Y参考A046130、A055592、A069598和A069597。

%Y参见A070080、A070081、A070083、A070084、A070085、A070086。

%K nonn公司

%O 1,2号机组

%A _Reinhard Zumkeller，2002年5月5日