A082739-OEIS公司

A082739号

三角形的第一列A082737号.

1, 2, 3, 11, 23, 41, 61, 89, 131, 179, 233, 307, 379, 449, 541, 619, 727, 839, 971, 1097, 1237, 1423, 1553, 1709, 1901, 2089, 2293, 2477, 2713, 2953, 3229, 3491, 3719, 4001, 4271, 4583, 4909, 5209, 5521, 5851, 6211, 6563, 6949, 7331, 7717, 8147, 8573, 8969 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,2`
	链接	`n，a（n）的表，n=1..48。`
	MAPLE公司	A082739号：=proc（nmax）局部T，a，n，r，i，rsum，c，j；T:=[1,2,7]；a:=[1,2]；n：=3；i:=1；而nops（a）<nmax-do r:=[]；对于从1到n-1的c do，而T中的ithprime（i）或r中的ithprime（i；od；r：=[op（r），ithprime（i）]；i： =i+1；od；j：=i+1；rsum：=总和（op（k，r），k=1..nops（r））；当不是issqr（rsum+ithprime（j））时，执行j:=j+1；od；a:=[op（a），op（1，r）]；r:=[op（r），ithprime（j）]；T:=[op（T），op（r）]；n:=n+1；od；返回（a）；结束：a：=A082739号（80）：对于n从1到nops（a）执行printf（“%d，”，op（n，a））；od#R.J.马塔尔2006年11月12日
	数学	`A082737美元[nmax_]：=模块[｛a，n，r，i，rsum，c，j｝，a=｛1，2，7｝；n=3；i=1；而[长度[a]<=nmax，r=｛｝；对于[c=1，c<=n-1，c++，While[MemberQ[a，素数[i]]\|\|MemberQ[r，素数[1]]，i++]；r=附加[r，素数[i]]；i++]；j=i+1；rsum=总计[r]；同时[！整数Q@Sqrt[rsum+Prime[j]]，j++]；r=附加[r，素数[j]]；a=连接[a，r]；n++]；返回[a]]；` `行数=48；` `nmax=行（行+1）/2；` `三个=A082737号[nmax]；` `T=表格[tri[[（n^2-n+2）/2；；n（n+1）/2]]，{n，1，行}]；` `a[n]：=T[[n，1]]；` `表[a[n]，{n，1，行}](Jean-François Alcover公司2024年4月4日之后R.J.马塔尔)`
	交叉参考	`囊性纤维变性。A082737号,A082738号,A082740号.` `上下文中的序列：A350853 A080153号 A040124号A158017型 A346605型 A091310号` `相邻序列：A082736美元 A082737号 A082738号A082740号 A082741号 A082742号`
	关键字	`非n`
	作者	`阿玛纳斯·穆尔西2003年4月14日`
	扩展	`更多术语来自R.J.马塔尔2006年11月12日`
	状态	`经核准的`