A072129-OEIS公司

A072129号

将正方形{1,4,9，…，（2n）^2}排列在一个圆中的不同方式的数目，使每个相邻项的和为素数。

1, 0, 0, 0, 6, 0, 96, 272, 1408, 61622, 33736, 356606, 86520774, 192570133, 1560696233

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

抵消

1,5

链接

n=1..15时的n，a（n）表。

例子

a（5）=6，因为有6种本质上不同的方式：{1、4、9、64、49、100、81、16、25、36}、{1、4,49、64、9、100、81,16、25,36}，{1、16,81,100、9,4、64、25、36}、[1、16,81、100、9、64,49、49,4、25,36}，以及{1、16、81、100}

数学

$RecursionLimit=500；try[lev_]：=模块[｛t，j｝，如果[lev>2n，（*则确保第一个和最后一个的和是素数*）如果[PrimeQ[soln[[1]]^2+soln[[2n]]^2]&&soln[[2]<=soln[[2n]]，（*打印[soln]；*）cnt++]，（*否则将另一个数字附加到soln列表*）t=soln[[lev-1]]；对于[j=1，j<=长度[s[[t]]]，j++，如果[！MemberQ[soln，s[t][[j]]]；尝试[lev+1]；土壤[[lev]]=0]]]；对于[lst={}；n=1，n<=7，n++，s=表[{}，{2n}]；对于[i=1，i<=2n，i++，对于[j=1，j<=2n、j++，如果[i！=j&&PrimeQ[i^2+j^2]，附加到[s[i]]，j]]]；soln=表[0，｛2n｝]；soln[[1]]=1；cnt=0；尝试[2]；附录[lst，cnt]]；第一次

交叉参考

囊性纤维变性。A051252号,A073451号.

上下文中的序列：A145223号 A365979型 A219948型*A085511号 A187525号 A187696号

相邻序列：A072126号 A072127号 A072128号*A072130型 A072131号 A072132号

关键词

非n,更多

作者

桑蒂·斯帕达罗2002年6月25日

扩展

更正和扩展人T.D.诺伊2002年7月3日

a（13）修正，a（14）-a（15）来自肖恩·A·欧文2024年9月3日

状态

经核准的