%I#34 2021年10月4日08:17:25
%S 1,2,2,3,2,3,4,3,3,4,1,5,4,4,5,4],4,6,5,5,3,5,6,6,4,5,
%温度7,6,5,5,8,7,6,17,5,6,6,6,8,7,16,7,5,16,6,16,9,8,8,6,7,18,8,
%U 6,7,6,7,10,9,8,9,7,8,6,8,7,7,10,9,8,9,7
%N整数三角形[A070080(N)<=a(N)≤A070082(N)]的中间边,按周长排序,边按字典顺序排列。
%H G.C.Greubel,n表,a(n)用于前55行,扁平</a>
%H Reinhard Zumkeller,整数三角形</a>
%F a(n)=A070083(n)-A070080(n)-A070082(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,2]](*_Jean-François Alcover_,2017年7月9日*)
%Y参见A046129、A055593、A069595、A0695.94、A069588。
%Y参见A070080、A070082、A070083、A070084、A070085、A070086。
%K nonn公司
%O 1、2
%A _Reinhard Zumkeller,2002年5月5日
|