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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A086909号 第一个基本d-算术三角形的中间边,其中d=A072330号(n) ●●●●。 10
4, 26, 28, 52, 76, 98, 124, 134, 158, 148, 172, 206, 218, 266, 244, 316, 292, 362, 388, 388, 364, 364, 386, 398, 518, 556, 494, 532, 556, 508, 532, 602, 602, 628, 724, 676, 758, 746, 734, 854, 916, 806, 868, 916, 844, 892, 866, 868, 1036, 1022, 988, 964, 974 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
参考文献
J.A.MacDougall,“算术级数中有边的鹭三角”,《娱乐数学杂志》,第31(3)期,2002-2003年,第192-194页。
链接
让-弗朗索瓦·奥尔科弗,n=1..1000时的n,a(n)表
J.A.MacDougall,算术级数中带边的Heron三角形,ResearchGate,2005年。
数学
术语=1000;
nmax=12项;
okQ[n_]:=AllTrue[FactorInteger[n][[All,1]],MatchQ[Mod[#,12],1|11]&];
A072330号=选择[Range[nmax],okQ];
a[n_]:=模块[{a,b,c,d,p},d=如果[n<=长度[A072330号],A072330号[[n]],打印[“nmax=”,nmax,“不足”];退出[]];如果[n==1,4,For[b=2d,True,b++,a=b-d;c=b+d;p=(a+b+c)/2;如果[IntegerQ[p]&IntegerQ[Sqrt[p(p-a)(p-b)(p-c)]]&GCD[a,b,c]==1,返回[b]]];
a/@范围[条款](*Jean-François Alcover公司2020年3月6日*)
交叉参考
关键词
非n
作者
Lekraj Beedassy公司2003年9月19日
扩展
由扩展雷·钱德勒2004年7月3日
状态
经核准的

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

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

上次修改时间:2024年4月26日11:23 EDT。包含371997个序列。(在oeis4上运行。)