登录

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

 

提示 （来自的问候整数序列在线百科全书!) A340859型 a（n）是等腰整数梯形数（直至全等），整数边长a，c，b=d，n=Max（a，b，c），整数对角线e=f。 2 0, 0, 0, 1, 1, 1, 2, 5, 6, 3, 3, 9, 6, 5, 10, 20, 9, 10, 8, 21, 18, 10, 10, 37, 21, 12, 24, 31, 14, 26, 17, 55, 32, 20, 36, 54, 22, 20, 39, 74, 24, 40, 26, 58, 59, 24, 26, 113, 47, 41, 54, 69, 33, 51, 61, 111, 65, 35, 39, 124, 38, 39, 88, 145, 79 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1,7 评论 这里的“梯形”是指只有一对平行边的四边形。 在不损失一般性的情况下，我们假设b=d，对于平行边c<a.e和f是由e=f=sqrt（（c（a^2-b^2）+a（b^2-c^2））/（a-c））唯一确定的。最小可能的等腰梯形边长为a=4、c=3、b=d=2和对角线e=f=4。 链接 n=1..65时的n，a（n）表。 例子 a（7）=2，因为有两个可能的梯形：a=5，c=3，b=d=7，e=f=8和a=7，c=4，b=d=6，e=f=8。 数学 n=65；列表={}； 对于[a=1，a<=n，a++， 对于[c=1，c<a，c++， 对于[d=Floor[（a-c）/2]+1，d<=n，d++， 对于[b=1，b<=n，b++， se=c（a^2-b^2）+a（d^2-c^2）；sf=c（a^2-d^2）+a（b^2-c^2）； 如果[se<=0||sf>se，则中断[]]；如果[sf<=0，则继续[]； e=平方[se/（a-c）]；f=平方英尺[sf/（a-c）]； 如果[IntegerQ[e]&&IntegerQ[f]&&a+d>f&d+f>a&f+a>d&e+b>a&b+a>e&a+e>b，则AppendTo[list，{a，b，c，d，e，f}]]] 表[Select[list，Max[#[[1]]，#[2]，#[[3]]，#[[4]]]==n&#[2]]=#[[4]]//长度，{n，1，65}] 交叉参考 囊性纤维变性。A224931号对于平行四边形，A340858型对于一般梯形和A340860型对于非等腰梯形。 上下文中的序列：165501美元 A274614号 A353771型*A336817飞机 A340858型 A309364型 相邻序列：A340856型 A340857飞机 A340858型*A340860型 A340861型 A340862型 关键词 非n 作者 赫伯特·科西姆巴2021年1月24日 状态 经核准的

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

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

上次修改时间：美国东部夏令时2024年6月22日04:48。包含373565个序列。（在oeis4上运行。）