%I#9 2013年1月4日14:01:11
%S 6,24,30,54,24,84,36,60,66,42,96,84126,90150,84120,36204210210,
%电话:60216132,96336,72144240294,84252360114156180210120210,
%电话:420168270264168384240468126180336336504264330486216
%N通过增加c和b排序的不定整数赫伦三角形(A046128、A046129、A046130)的面积。
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/HeronianTriangle.html“>希罗尼亚三角</a>
%t侧最大值=60;r[c]:=收获[Do[p=(a+b+c)/2;red=减少[area>1&a<b<c&&面积^2==p*(p-a)*(p-b)*(p-c),面积,整数];如果[red=!=False,sol={a,b,c,area}/.{ToRules[red]};母猪[sol]],{b,1,c-1},{a,c-b,b-1}]];三角形=扁平[Reap[Do[rc=r[c];如果[rc[[2]]=!={},母猪[rc[[2,1]]],{c,5,sideMax}]][[2],1]],2];排序[三角形,其中[#1[[3]]<#2[[3]],True,#1[[3]]>#2[[3]],False,#1[[2]]<#2],True
%Y参见A046128、A046129、A046130。
%K非n
%0、1
%A _瑞克·W·魏斯坦_
|