%I#31 2021年10月4日07:11:32
%S 1,1,2,1,2,2,1,2,3,2,3,1,2,3,3,3,1,3,2,4,1,2,2,3,4,4,1,2,3,4,1,
%温度2,3,4,4,5,1,2,3,3,44,5,5,2,3,1,4,4.5,5,6,1,2,2,3,2,4,4,1,5,5,
%U 5,5,6,6,1,2,3,3,4,4,5,5,1,5,4,6,7,2,4,4,1,5
%N整数三角形的最小边[a(N)<=A070081(N)<=A070082(N)],按周长排序,按字典顺序排列。
%H G.C.Greubel,n表,前55行的a(n)</a>
%H Reinhard Zumkeller,整数三角形</a>
%F a(n)=A070083(n)-A070082(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,1]](*_Jean-François Alcover_,2012年6月12日,2017年7月9日更新*)
%Y参考A046128、A055594、A069597。
%Y参见A070081、A070082、A070083、A070084、A070085、A070086。
%Y参考A316841、A316843、A316844、A316845(侧面(i、j、k),j+k>i>=j>=k>=1)。
%Y请参阅A331244、A331245、A331266(类似,但三角形是按外接圆半径排序的)、A331251、A331255、A3312253(三角形是按面积排序的),A331254、A331、255和A331256(三角形是按照外接圆半径分类的)。
%K nonn公司
%氧1,3
%A _Reinhard Zumkeller,2002年5月5日
|