A082737-出口

A082737号

按行读取的三角形，其中第一行包含1，第n行包含前几行中未包含的n个素数，因此一行的和是一个完美的正方形。

1, 2, 7, 3, 5, 17, 11, 13, 19, 101, 23, 29, 31, 37, 241, 41, 43, 47, 53, 59, 157, 61, 67, 71, 73, 79, 83, 191, 89, 97, 103, 107, 109, 113, 127, 1019, 131, 137, 139, 149, 151, 163, 167, 173, 311, 179, 181, 193, 197, 199, 211, 223, 227, 229, 277, 233, 239, 251, 257, 263, 269, 271, 281, 283, 293, 2689

(列表;桌子;图表;参考;听;历史;文本;内部格式)

抵消

1,2

素数和1的另一个重排。

链接

n，a（n）的表，n=1..66。

例子

三角形开始：

2 7

3 5 17

11 13 19 101

23 29 31 37 241

...

MAPLE公司

A082737号：=proc（nmax）局部a，n，r，i，rsum，c，j；a：=[1,2,7]；n：=3；i：=1；而nops（a）<nmax-do r:=[]；对于从1到n-1的c，当a中的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））do j:=j+1；od；r:=[op（r），ithprime（j）]；a:=【op（a），op（r）】；n：=n+1；od；返回（a）；结束：a：=A082737号（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；而[Length[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]]；

行=11；

nmax=行（行+1）/2；

三=A082737号[nmax]；

T=表格[tri[[（n^2-n+2）/2；；n（n+1）/2]]，{n，1，行}]；

表[T[[n，k]]，{n，1，rows}，{k，1，n}]//展平(*Jean-François Alcover公司2023年6月22日之后R.J.马塔尔*)

交叉参考

主对角线给出A082738号.

囊性纤维变性。A008578号,A082739号,A082740号.

上下文中的序列：A365768飞机 A330883型 A075639美元*A334971飞机 A104957号 A329333飞机

相邻序列：A082734号 A082735号 A082736号*A082738号 A082739号 A082740号

关键词

非n,表

作者

阿马纳特·穆尔蒂2003年4月14日

扩展

来自的更多条款R.J.马塔尔2006年11月12日

最后一行完成者Jean-François Alcover公司2023年6月22日

状态

经核准的