登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 


A272390型
原始希罗尼亚四面体的最长边,有4个全等三角形面。
0
203, 888, 1804, 2431, 2873
抵消
1,1
评论
希罗尼亚四面体或完美四面体是一个四面体,其边长、面面积和体积都是整数。
基本四面体意味着4个边长度不共享公共因子。
属性:
1.3对对边长度相等。
2.周长必须是偶数。
3.面是锐角三角形,不能是等腰三角形。
已知序列中有55128484112751969532708294175683787。
例子
下面显示了一些示例:(可能包含间隙)
a、 b、c、S、V
203, 195, 148, 13650, 611520
888, 875, 533, 223860, 37608480
1804, 1479, 1183, 870870, 214582368
2431, 2296, 2175, 2277660, 1403038560
2873, 2748, 1825, 2419950, 1355172000
5512, 5215, 1887, 4919460, 1377448800
8484, 6625, 6409, 20980050, 30546952800
11275, 10136, 8619, 41861820, 103147524480
19695, 16448, 13073, 106675680, 323290060800
32708, 31493, 24525, 363332970, 2685757314240
数学
鹭鸟=1/4平方米[(#1+#2+#3)(-#1+#2+#3);
cayley=1/24平方米[2套[{
{0, 1, 1, 1, 1},
{1, 0, #1^2, #2^2, #6^2},
{1, #1^2, 0, #3^2, #5^2},
{1, #2^2, #3^2, 0, #4^2},
{1, #6^2, #5^2, #4^2, 0}
}]]&;
a最小值=203;
aMax=2000(*警告:运行速度非常慢*);
做[
如果[GCD[a,b,c]>1,继续[]];
S=鹭[a,b,c];
如果[S//IntegerQ//否,则继续[];
V=凯利[a、b、c、a、b和c];
如果[V//整数Q//否,继续[]];
a(*{a,b,c,S,V}*)//母猪;
,{a,aMin,aMax}
,{b,a/Sqrt[2]//天花板,a-1}
,{c,型号[a+b,2,楼层[Sqrt[a^2-b^2]+1],b-1,2}
]//收割//最后//最后(*//表格*)
{S,V}=。;
(*
(*这段代码运行得更快,但可能包含间隙*)
mMax=100;
做[
{a,b,c}={n(m^2+k^2),m(n^2+k^2)(m+n)(mn-k^2;
{a,b,c}={a,c,c}/GCD[a,b、c];
V=凯利[a、b、c、a、b和c];
如果[V//整数Q//否,继续[]];
a(*{a,b,c,苍鹭[a,b、c],V}*)//母猪
,{m,mMax}
,{n,m-1}
,{k,楼层[Sqrt[(m^2 n)/(2m+n)]+1],n-1}
]//收割//最后//最后//并集(*TableForm*)
{a,b,c,V}=。;
*)
关键词
非n,更多
作者
阿尔伯特·刘2016年5月26日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年9月21日04:06。包含376079个序列。(在oeis4上运行。)