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

 


搜索: a020885-编号:a020885
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
勾股倒三角形的次幂:1/(12n)^2=1/b^2+1/c^2的解的个数[其中b>=c>0];还有的值的数量A020885美元(重复)除数。
+20
1
1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 2, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 2, 1, 4, 1, 1, 1, 1, 4, 1, 1, 1, 1, 3, 1, 2, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 3, 2, 1, 1, 1, 4, 1, 1, 1, 1, 2, 1, 1, 1, 1, 6, 1, 1, 1, 1, 2, 1, 1, 1, 1, 3, 1, 1, 1, 3, 2, 1, 1, 1, 1, 4, 2, 1, 1, 1, 2, 1, 1, 2, 1, 3, 1, 1, 1, 1, 5
抵消
1,5
评论
原始倒数勾股三角形1/a^2=1/b^2+1/c^2具有a=fg,b=ef,c=eg,其中e^2=f^2+g^2;即e、f、g表示原始毕达哥拉斯三角形的边。但是原始毕达哥拉斯三角形的两条腿的乘积是12的倍数,所以倒易毕达哥尔斯三角形斜边的倒数总是12的倍数(A008594号).
例子
a(1)=1,因为1/(12*1)^2=1/12^2=1/15^2+1/20^2;
a(70)=6,自1/(12*70)^2=1/840^2=1+875^2+1/3000^2=1888^2+1/2590^2=1/910^2+1/20184^2=1/952^2+1/1785^2=1/1050^2+11400^2=1/1160^2+1/1218^2。
正在查看A020885美元,1可以被1整除,而70可以被1、5、10、14、35整除,然后再被35整除。
交叉参考
关键词
非n
作者
亨利·博托姆利2001年7月28日
状态
经核准的
原始毕达哥拉斯三角形的有序长腿。
+10
52
4, 12, 15, 21, 24, 35, 40, 45, 55, 56, 60, 63, 72, 77, 80, 84, 91, 99, 105, 112, 117, 120, 132, 140, 143, 144, 153, 156, 165, 168, 171, 176, 180, 187, 195, 208, 209, 220, 221, 224, 231, 240, 247, 252, 253, 255, 260, 264, 272, 273, 275, 285, 288, 299, 304, 308, 312, 323
抵消
1,1
评论
考虑本原毕达哥拉斯三角形(A^2+B^2=C^2,(A,B)=1,A<B);序列给出B的值,已排序。
这个序列中的任何项都是由f(m,n)=2*m*n或g(m,n)=m^2-n^2给出的,其中m和n是任意两个正整数,m>1,n<m,m和n的最大公约数是1,m和n都不是奇的;例如,f(m,n)=f(2,1)=2*2*1=4-阿戈拉·基西拉·奥德罗,2016年4月29日
所有术语都是复合术语-托马斯·奥多夫斯基2017年3月12日
a(1)是2的唯一幂-托拉赫·拉什2019年11月8日
出现两次的第一项是420=a(75)=a(76)=A024410号(1). -乔瓦尼·雷斯塔2019年11月11日
发件人伯纳德·肖特,2021年5月5日:(开始)
此外,积分边三角形的本原三元组(a,b,c)的有序边a,其中边a是其他两条边b和c的调和平均值,即2/a=1/b+1/c,其中b<a<c。
例如:a(2)=12,因为第二个三元组是(12,10,15),边a=12,满足2/12=1/10+1/15和15-12<10<15+12。
出现两次420的第一个术语对应于三元组(420310651)和(420406435),第二个术语是572=a(101)=a(102)=A024410号(2) 对应于三元组(572407962)和(572455770)。在此序列中出现多次的术语位于A024410号.
有关相应的基本三元组以及其他属性和引用,请参见A343891型.(结束)
参考文献
V.Lespinard&R.Pernet,Trigonométrie,Classe de Mathématiquesélémentaires,1962年计划,B-337问题,第179页,安德烈·德斯维涅。
链接
MAPLE公司
从4到325度
对于b从地板(a/2)+1到a-1 do
c:=a*b/(2*b-a);
如果c=楼层(c),igcd(a,b,c)=1,c-b<a,则打印(a);结束条件:;
末端do;
结束do#伯纳德·肖特2021年5月5日
交叉参考
2/a=1/b+1/c的三角形:A343891型(三个),A020883号(侧面a),A343892(b侧),A343893型(c面),A343894飞机(周长)。
关键词
非n
扩展
扩展和更正人大卫·W·威尔逊
状态
经核准的
原始毕达哥拉斯三角形的有序短腿。
+10
43
3, 5, 7, 8, 9, 11, 12, 13, 15, 16, 17, 19, 20, 20, 21, 23, 24, 25, 27, 28, 28, 29, 31, 32, 33, 33, 35, 36, 36, 37, 39, 39, 40, 41, 43, 44, 44, 45, 47, 48, 48, 49, 51, 51, 52, 52, 53, 55, 56, 57, 57, 59, 60, 60, 60, 61, 63, 64, 65, 65, 67, 68, 68, 69, 69, 71, 72, 73, 75, 75, 76, 76, 77
抵消
1,1
评论
考虑原始勾股三角形(A^2+B^2=C^2,(A,B)=1,A<=B);序列给出A的值,已排序。
的联合A081874号A081925号. -Lekraj Beedassy公司2006年7月28日
这个序列中的每个项都是由f(m,n)=m^2-n^2或g(m,n)=2mn给出的,其中m和n是相对素数正整数,m>n,m和n都不是奇数。例如,a(1)=f(2,1)=2^2-1^2=3,a(4)=g(4,1)=2*4*1=8-阿戈拉·基西拉·奥德罗,2016年4月29日
2大于4(2^2)的所有幂都是项,由函数g(m,n)=2mn生成-托拉赫·拉什2019年11月8日
链接
雷·钱德勒,n,a(n)表,n=1.10000(Reinhard Zumkeller的前1000条条款)
P.Alfeld,勾股三元组(断开的链接)
尼克·埃克斯纳,生成勾股三元组。这最初是一个Java小程序(1998年),由Michael McKelvey于2001年修改,并由Evan Ramos于2014年用JavaScript重新制作为HTML页面。
W.A.Kehowski,勾股三元组.
数学
短腿={};amx=99;Do[For[b=a+1,b<(a^2),c=(a^2+b^2)^(1/2);If[c==IntegerPart[c]&&GCD[a,b,c]==1,AppendTo[shortLegs,a]];b=b+2],{a,3,amx}];短腿(*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2008年8月7日*)
黄体脂酮素
(哈斯克尔)
a020884 n=a020884_列表!!(n-1)
a020884_list=f 1 1其中
fuv|v>uu`div`2=f(u+1)(u+2)
|gcd u v>1 | | w==0=f u(v+2)
|否则=u:f u(v+2)
其中uu=u^2;w=a037213(uu+v^2)
--莱因哈德·祖姆凯勒2012年11月9日
交叉参考
囊性纤维变性。A024359号(给出n发生的次数)。
囊性纤维变性。A037213号.
关键词
非n,容易的,美好的
扩展
扩展和更正人大卫·W·威尔逊
状态
经核准的
原始毕达哥拉斯三角形的有序半周长。
+10
31
6, 15, 20, 28, 35, 42, 45, 63, 66, 72, 77, 88, 91, 99, 104, 110, 117, 120, 130, 143, 153, 156, 165, 170, 187, 190, 195, 204, 209, 210, 221, 228, 231, 238, 247, 255, 266, 272, 273, 276, 285, 299, 304, 322, 323, 325, 336, 342, 345, 350, 357, 368, 378, 391, 399
抵消
1,1
评论
k在这个序列中iffA078926号(k) >0。
此外,积分边三角形的本原三元组(a,b,c)的有序边c,其中边a是其他两条边b和c的调和平均值,即2/a=1/b+1/c与b<a<c(A343893型). -伯纳德·肖特2021年5月6日
链接
雷·钱德勒,n,a(n)表,n=1.10000(副本由Sean A.Irvine删除)
配方奶粉
a(n)=A024364美元(n) /2。
MAPLE公司
isA020886:=proc(an)局部r::integer,s::intger;对于从地板((an/2)^(1/2))到地板(an^(1/2))的r,如果r*(r+s)=an且gcd(r,s)<2,则为s从r-1到1乘-2 do,然后返回(true);fi;如果r*(r+s)<an,则中断;fi;od;od:返回(假);结束:对于从2到400的n,如果是A020886(n),则执行printf(“%d,”,n);fi;od#R.J.马塔尔2006年6月8日
数学
A078926号[n]:=和[Boole[n<d^2<2n&&互质Q[d,n/d]],{d,除数[n/2^IntegerExponent[n,2]}];
选择[范围[1000],A078926号[#]>0&] (*Jean-François Alcover公司2020年3月23日*)
黄体脂酮素
(PARI)是(n,f=系数(n))=my(P=应用(i->f[i,1]^f[i、2],[2-n%2..#f~]),nn=2*n);对于vec(v=向量(#P,i,[0,1]),my(d=prod(i=1,#v,P[i]^v[i]),d2=d^2);如果(d2<nn&&d2>n,返回(1));0
列表(lim)=我的(v=列表());forfactored(n=6,lim\1,if(is(n[1],n[2]),listput(v,n[1]));车辆(v)\\查尔斯·格里特豪斯四世2023年2月3日
交叉参考
的后续A005279号.
2/a=1/b+1/c的三角形:A343891型(三个),A020883号(侧面a),A343892(b侧),A343893型(c面),A343894飞机(周长)。
关键词
非n
状态
经核准的
原始毕达哥拉斯三角形的有序区域。
+10
26
6, 30, 60, 84, 180, 210, 210, 330, 504, 546, 630, 840, 924, 990, 1224, 1320, 1386, 1560, 1710, 1716, 2310, 2340, 2574, 2730, 2730, 3036, 3570, 3900, 4080, 4290, 4620, 4914, 5016, 5610, 5814, 6090, 6630, 7140, 7440, 7854, 7956, 7980, 7980, 8970, 8976, 9690
抵消
1,1
评论
这个序列也给出了斐波那契的一致数(或一致数)除以4的多重性,而不考虑底层原始毕达哥拉斯三角形中的腿交换。请参见A258150型和示例-沃尔夫迪特·朗2015年6月14日
条目的无平方部分是来自A006991号属于毕达哥拉斯三角形,其边长有理(并非全部为整数)(其同伴是通过交换腿获得的)。请参阅W.Lang链接-沃尔夫迪特·朗2016年10月25日
链接
乔瓦尼·雷斯塔,n,a(n)表,n=1.10000
埃里克·魏斯坦的数学世界,会议问题
配方奶粉
a(n)=6*A020885美元(n) ●●●●-Lekraj Beedassy公司2004年4月30日
a(n)=A121728号(n)*A121729号(n) /2-M.F.哈斯勒2020年4月16日
例子
a(6)=a(7)=210对应于原始毕达哥拉斯三角形(21,20,29)和(35,12,37)的面积(以某种平方长度单位)。斐波那契公式C=840=210*4属于两个三元组[x,y,z]=[29,41,1]和[37,47,23],求解x^2+C=y^2和x^2-C=z^2-沃尔夫迪特·朗2015年6月14日
a(5)=180=6^2*5导致本原同余数A006991号(1) =5从原始毕达哥拉斯三角形[9,40,41]除以6:[3/2,20/3,41/6]。请参阅其他非方形a(n)数字的链接-沃尔夫迪特·朗,2016年10月25日
交叉参考
囊性纤维变性。A009112号,A024365号,A094182号,A094183号,A256418型(刚果),A258150型.
关键词
非n,容易的
状态
经核准的
原始毕达哥拉斯三角形边的有序乘积。
+10
7
60, 780, 2040, 4200, 12180, 14760, 15540, 40260, 65520, 66780, 92820, 120120, 189840, 192720, 199980, 235620, 277680, 354960, 453960, 497640, 595140, 619020, 643500, 1021020, 1063860, 1075620, 1265880, 1484340, 1609080, 1761540
抵消
1,1
评论
任何两个不同的毕达哥拉斯三元组是否可以具有相同的边积,这是一个悬而未决的问题。
例子
a(1)=3*4*5=60;a(2)=5*12*13=780(而不是6*8*10=480,这不是基本的)。
数学
k=17000000;lst={};Do[Do[If[InterQ[a=Sqrt[c^2-b^2]]&&GCD[a,b,c]==1,If[a>=b,Break[];x=a*b*c;如果[x<=k,AppendTo[lst,x]]],{b,c-1,4,-1}],{c,5,700,1}];联盟@lst (*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2009年9月5日*)
使用[{nn=50},Take[(Times@@#)Sqrt[#[[1]]^2+#[[2]]^2]和/@Union[Sort/@({Times@@#,(Last[#]^2-First[#]|2)/2}和/@(Select[Subsets[Range[1,nn+1,2],{2}],GCD@@#=1&]))]//Union,nn]](*哈维·P·戴尔,2018年6月8日*)
交叉参考
关键词
非n
作者
亨利·博托姆利2001年7月26日
状态
经核准的
基于原始毕达哥拉斯三角形的斐波那契(congrous)数除以24的三角形。由6个三角形划分的面积。
+10
6
1, 0, 5, 10, 0, 14, 0, 35, 0, 30, 35, 0, 0, 0, 55, 0, 105, 0, 154, 0, 91, 84, 0, 220, 0, 260, 0, 140, 0, 231, 0, 390, 0, 0, 0, 204, 165, 0, 455, 0, 0, 0, 595, 0, 285, 0, 429, 0, 770, 0, 935, 0, 836, 0, 385, 286, 0, 0, 0, 1190, 0, 1330, 0, 0, 0, 506
抵消
2,3
评论
问题是:给定一个平方,找到一个正整数,无论是加上还是减去该平方,都会得到一个平方。也就是说,x^2+C=y^2和x^2-C=z^2。等价:z^2+C=x^2和x^2+C=y^2(算术级数中的平方)。这在斐波那契的《方阵书》(Liber Quadratorum,1225)中有论述,但对有理x,y,z来说是如此。参见Sigler参考文献,命题14,第53-74页(请注意,第53页上这个问题的表述是不正确的,“从一个正方形”应改为“从同一正方形”)。另见范德瓦尔登(van der Waerden),第40-42页,A.Weil,第13-14页。所需的数字C被斐波那契(Fibonacci)称为聚合数(Sigler翻译中的聚合数)。
关于这个问题的历史,请参阅Dickson,第459-472页(他使用了(误导性的)同余数术语)。
以下解决方案基于基本勾股三角形。(斐波那契的解是基于奇数平方和的。)三角形T(n,m)=24*C(n,m)对于那些没有导致原始勾股三元组的(n,m)将有0。
将两个方程相加,替换y=u+v>0和z=|u-v|,再除以2,得到x^2=u^2+v^2。考虑原始毕达哥拉斯三元组(u,v,x),其中偶数v是相对素的两两。那么GCD(u,v,x)=1。u、v和x的公共因子f将导致两个方程两边的f^2相乘。关于原始毕达哥拉斯三元组,请参见A249866型一个是u=n^2-m^2,v=2*n*m和x=n^2+m^2(GCD(n,m)=1,n>m>=1,n+m奇数)。那么C=C(n,m)=4*n*m*(n^2-m^2)=2*v(n,m)*u(n,米)。这是毕达哥拉斯三角形面积的四倍。C可以被4整除!=24(参见A020885美元). 定义T(n,m)=C(n,m)/4!,对于2<=m+1<=n,这是相应的原始毕达哥拉斯三角形的面积除以6。
相应的x=x(n,m),y=y(n,米)和z(n,m)数字三角形如下所示A222946型,A225949号A258149型分别是。
T(n,m)=n*m*(n^2-m^2)/6,对于m=1,2。。。,n-1,对于n>=2,在m=1时为最小值,在m=n-1时,n>=3时为次大值。注意,这里考虑了所有(n,m)对。第一部分的证明很容易。对于m=2,3,…,T(n,m)-T(n,n-1)>0的证明。。。,n-2和n>=3等价于n^2*(m-2)+3*n>m^3+1,这在n>=m+2和m>=2时很容易证明。因此,带0的三角形T(n,m)在m=1时,偶数n达到最小的非零行条目,奇数n时,最小的非零行条目出现在m=n-1(最后一个条目)。
这允许我们(在求解奇偶n的两个三次方程后,命名为ne=ne(n)和no=no(n))找到行号nmin(n)=max(ne(n),no(n。
Giovanni di Palermo(巴勒莫的约翰大师)向斐波纳契提出的最初问题是找到一个[有理]正方形,当增加或减少5时即为正方形。斐波纳契在第17号命题(见Sigler,第77-81页)中,在他的Liber Quadratorum中给出了x^2=(41/12)^2=1681/144,y^2=。这对应于整数四元组(C;x,y,z)=(720;41,49,31),对应于原始毕达哥拉斯三元组[9,40,41]。参见(n,m)=(5,4)的示例。
不带零的数字以非递减顺序给出,如下所示A020885美元=A024406号/6.
来自的评论埃瑞克辛德尔,2023年2月7日:(开始)
如果m+n>3且不能被3整除,则m+n|T(n,m)。
此外,如果2n-1>3且不能被3整除,则2n-1=6k+-1,且T(n,n-1)=(2n-1)*P(-+k),其中P(-+k)是广义五边形数(A001318号). 例如,T(6,5)=11*P(-2)=11x5。
T(n,n-1)=A000330号(n-1)对于n>=2。(结束)
参考文献
L.E.Dickson,《数字理论史》。卡内基公共研究所。256,华盛顿特区,第2卷,1920年,第459-472页。
L·E·西格勒,莱昂纳多·皮萨诺,斐波那契,《正方形之书》,学术出版社,1987年。
B.L.van der Waerden,《代数史》,施普林格出版社,1985年,第40-42页。
安德烈·威尔(AndréWeil),《数论:穿越历史的方法》(Number Theory,An approach through history),《从汉谟拉比到勒让德》(From Hammurapi to Legendre),伯卡用户出版社,1984年,第13-14页。
配方奶粉
T(n,m)=n*m*(n^2-m^2)/6,如果2<=m+1<=n,n+m奇数,GCD(n,m)=1,否则为0。
例子
三角形T(n,m)开始于:
n\m 1 2 3 4 5 6 7 8 9 10 11
2: 1
3: 0 5
4: 10 0 14
5: 0 35 0 30
6: 35 0 0 0 55
7: 0 105 0 154 0 91
8: 84 0 220 0 260 0 140
9: 0 231 0 390 0 0 0 204
10: 165 0 455 0 0 0 595 0 285
11: 0 429 0 770 0 935 0 836 0 385
12: 286 0 0 0 1190 0 1330 0 0 0 506
...
对于偶数n的每一行,最小的非零数是T(n,1),对于奇数n,最小的是T(n,n-1)。
对于N=300,上述nmin(N)为12。
因此,对于n>12的行,不会出现大于300的数字。
-----------------------------------------------------
相应的四元数(C;x,y,z)为:
n=2:(24;5,7,1),
n=3:(120;13,17,7),
n=4:(240;17,23,7),(336;25,31,17),
n=5:(840;29,41,1),(720;41,49,31),
n=6:(840;37,47,23),(1320;61,71,49),
n=7:(2520;53,73,17),(3696;65,89,23),
(2184; 85, 97, 71),
n=8:(2016;65,79,47),(5280;73,103,7),
(6240; 89, 119, 41), (3360; 113, 127, 97),
n=9:(5544;85,113,41),(9360;97,137,7),
(4896; 145, 161, 127),
n=10:(3960;10111979),(10920;10915131),
(14280; 149, 191, 89), (6840; 181, 199, 161),
n=11:(10296;125161,73),(18480;137193,17),
(22440; 157, 217, 47), (20064; 185, 233, 119),
(9240; 221, 241, 199),
n=12:(6864;145,167,119),(28560;169,239,1),
(31920; 193, 263, 73), (12144; 265, 287, 241),
...
-----------------------------------------------------
相应的原始毕达哥拉斯三元组
(u,v,x)为:
n=2:[3,4,5],
n=3:[5,12,13],
n=4:[15,8,17],[7,24,25],
n=5:[21,20,29],[9,40,41],
n=6:[35,12,37],[11,60,61],
n=7:[45,28,53],[33,56,65],
[13, 84, 85],
n=8:[63,16,65],[55,48,73],
[39, 80, 89], [15, 112, 113],
n=9:[77,36,85],[65,72,97],
[17, 144, 145],
n=10:[99,20,101],[91,60,109],
[51, 140, 149], [19, 180, 181],
n=11:[117,44,125],[105,88,137],
[85, 132, 157], [57, 176, 185],
[21, 220, 221],
n=12:[143,24,145],[119,120,169],
[95, 168, 193], [23, 264, 265],
...
数学
温度[n_,m_]/;2<=m+1<=n&&OddQ[n+m]&&互质Q[n,m]:=n*m*(n^2-m^2)/6;T[_,_]=0;表[T[n,m],{n,2,12},{m,1,n-1}]//扁平(*Jean-François Alcover公司,2015年6月16日,在给定公式后*)
关键词
非n,容易的,
作者
沃尔夫迪特·朗2015年6月11日
状态
经核准的
原始毕达哥拉斯三角形的面积除以6,按递增顺序,没有多个条目。
+10
1
1, 5, 10, 14, 30, 35, 55, 84, 91, 105, 140, 154, 165, 204, 220, 231, 260, 285, 286, 385, 390, 429, 455, 506, 595, 650, 680, 715, 770, 819, 836, 935, 969, 1015, 1105, 1190, 1240, 1309, 1326, 1330, 1495, 1496, 1615, 1729, 1771, 1785, 1820, 1925
抵消
1,2
评论
请参见A020885美元对于这个具有多重性的序列。请参见A024365号用于具有多重性的区域。
这个序列也给出了斐波那契(Fibonacci)的一致数除以24而不包含多个条目。请参见A258150型.
例子
请参见A020885美元.
交叉参考
囊性纤维变性。A020885美元,A024365号,A258150型.
关键词
非n,容易的
作者
沃尔夫迪特·朗2015年6月14日
状态
经核准的
+10
0
6, 30, 60, 180, 210, 2310, 4620, 60060, 510510, 10810800, 116396280, 200560490130, 401120980260
抵消
1,1
评论
这两个序列涉及原始毕达哥拉斯三元组和初生产物的区域。交叉点只考虑一次(无重复)。推测:序列是无限的。
推测:接下来的两个条目是a(12)=200560490130,a(13)=401120980260。
发件人G.C.格鲁贝尔2015年12月29日:(开始)
n>=1时为6|a(n),
n>=2时为30|a(n),
a(n)/6={1,5,10,30,35,385,770,10010,…}是A008706号.
(结束)
a(12)和a(13)已确认。a(14)>2*10^31(如果存在)-乔瓦尼·雷斯塔2017年3月31日
例子
A024365号开始{6,30,60,84,180,210,210,330,504,546,630,840,924,990,1224,1320,1386,1560,1710,1716,2310,…}。
A129912号开始{1,2,6,12,30,60,180,210,360,420,1260,2310,2520,…}。
因此,常见的条目是{6、30、60、180、210、2310…}。
具体来说,我们看到了A024365号(1) =A129912号(3),A024365号(2) =A129912号(5),A024365号(3) =A129912号(6),A024365号(5) =A129912号(7).
然后是序列的前四个条目(6、30、60、180)。
数学
s=6 Take[Sort[(Times@@#)/12和/@({Times@@#,(Last[#]^2-First[#]|2)/2}和/@Select[Subsets[范围[1,3600,2],{2}],GCD@@#==1&])],1800];f[m]:=f[m]=并集[Times@@@Subsets[FoldList[Times,1,Prime[Range[m]]]][[1;;100]];f[10];f[m=11];而[f[m]!=f[m-1],m++];t=f[m];交叉点[s,t](*迈克尔·德弗利格,2015年10月22日,之后哈维·P·戴尔A020885美元Jean-François Alcover公司A129912号*)(*或*)
ok[n_]:=块[{a,f=Power@@@FactorInteger[2n]},SelectFirst[Subsets[f,{1,Floor[Length[f]/2]}],(a=Times@@#;IntegerQ@Sqrt[a^2+(2n/a)^2])&,{}]!={}]; pr[n_]:=乘积[素数[n+1-i]^i,{i,n}];最大[mx_]:=块[{ric,j=1},ric[n_,ip_,ex_]:=If[n<mx,块[{p=素数[ip+1]},If[ex==1&ok[n],Sow@n];ric[n p^ex,ip+1,ex];如果[ex>1,ric[n p^(ex-1),ip+1,ex-1]]];排序@Reap[While[pr[j]<mx,ric[2^j,1,j];j++]][[2,1]]];最多[10^12](*速度更快,乔瓦尼·雷斯塔2017年3月31日*)
黄体脂酮素
(PARI)
\\注意:代码不生成序列,只检查匹配的PPT条目
genit(面积)={myMax=楼层(平方米(2*面积));i5=myMax;无休止=0;soln=列表();
而(i5>=2,dun=0;j=2.*myVal/i5;k=楼层(j);如果(j>k,dun=1);如果(dun<1,
c=平方(i5^2+k^2);w=楼层(c);如果(c>w,dun=1);如果(dun<1,如果(gcd(k,i5)>1,dun=1));
如果(dun<1,listput(soln,k);listput(soln,i5);listput(soln,w);列表排序(soln);
打印(“soln a,b,c=”,soln[1],“,soln[2],”,soln[3]);邓恩=2;断裂);
i5--;无止境++);如果(i5<=2&&dun<1,打印(“无解决方案”);如果(i5>2&&dun<2,
打印(“达到最大迭代限制”,无止境);打印(无休止);}
(C++)
#包括<iostream>
#包括<fstream
使用命名空间标准;
int main(){ifstream fin1,fin2;
int myValue,myValue2,ptr,fptr,i5,j5;
无符号长列表1[9999]={0};
无符号长列表2[999]={0};
无符号长尾数[31]={0};
图1.打开(“A024365号.txt“);fin2.打开(”A129912号.txt”);
ptr=1;
而(ptr<9999)
{fin1>>myValue;fin1.get();列表1[ptr]=myValue;
如果(ptr<999)
{fin2>>myValue2;fin2.get();列表2[ptr]=myValue2
ptr++;}
图1.关闭();图2.关闭();fptr=1;
对于(i5=1;i5<9990;i5++)
{用于(j5=1;j5<999;j5++){
if(列表1[i5]==列表2[j5])
{
fptr++;
如果(fptr>30){break;}
最终[fptr]=列表1[i5];
cout<<最终[fptr]<<“,”;
断裂;
}}如果(fptr>30){break;}}}
交叉参考
囊性纤维变性。A024365号,A129912号.
关键词
非n,更多
作者
比尔·麦克阿欣2015年10月21日
扩展
a(12)-a(13)来自乔瓦尼·雷斯塔2017年3月31日
状态
经核准的

搜索在0.010秒内完成

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

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

上次修改时间:美国东部夏令时2024年9月22日07:30。包含376097个序列。(在oeis4上运行。)