%I#13 2018年7月31日03:32:20

%S 1,1,4,1，-1,4,1、-3,9,4,2,1、-5、-7,9,0,16,1、-7、-11,9,7,4、-2、-4,16,1、，

%T-9，-15,9，-17,5,25,4，-4，-8,16,14,1，-11，-19,9，-23,3,1,25,4-，-6，-12,16，

%U-14,12,36,1，-13，-23,9，-29,1，-31，-3,25,23,4，-8

%N a（N）=A070080（N）^2+A070081（N）*2-A070082（N）|2。

%C整数三角形[A070080（n）<=A070081（n）<=A070082（n）]在a（n）>0时为锐角，在右if a（n”=0时为钝角，在a（0）<0时为钝角。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/AcuteTriangle.html“>锐角三角形。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/RightTriangle.html“>直角三角形。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/ObtuseTriangle.html“>钝角三角形。

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

%t maxPer=m=22；

%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#[[1]]^2+#[2]]^2-#[[3]]^2&/@三角形（*Jean-François Alcover_，2018年7月31日*）

%Y参考A070093、A070101、A024155、A070118、A070%127和A070136。

%K符号

%氧1,3

%A _Reinhard Zumkeller，2002年5月5日