A072676-OEIS公司

A072676号

素数圆问题有一个由不相交子集组成的解的数k：数1到2k围绕一个圆的排列是这样的：每对相邻数的和是素数，奇数是有序的，偶数是递减序列组。

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 39, 40, 41, 42, 43, 45, 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 60, 61, 63, 64, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 78, 79, 81, 82, 83, 84 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1、2`
	评论	`这是对A072618号如果（a）4k-1和2k+1是素数，或者（b）2k+2i-1、2k+2i+1和2i+1是某些0<i<k的素数，那么整数k就是这个序列中的素数。Mathematica程序为这样的k计算一个素数圆。很容易证明，对于大k，比如10^10，有素数圆存在。`
	链接	`n=1..72时的n，a（n）表。` `埃里克·魏斯坦的数学世界，素数圆。`
	例子	`k=10是一个项，因为一个解是{1，2，3，8，5，6，7，4，9，20，11，18，13，16，15，14，17，12，19，10}，偶数是按三个递减序列{2}，{8，6，4}和{20，18，16，14，12，10}。注意，这个解决方案包含{1，2}和{1，2，3，8，5，6，7，4}，它们是k=1和k=4的解决方案。`
	数学	`n=10；lst={}；i＝0；found=错误；当[i<n&&！found，i++；如果[i==n，found=PrimeQ[4n-1]&&PrimeQ[2n+1]，found=PrimeQ[20n+2i-1]&&PrimeQ[2]；如果[found，lst=Flatten[Table[{2j-1，2n-2（j-i）}，{j，i，n}]]，打印[“no solution using this method”]]；如果[found，While[n=i-1；n>0，i=0；found=False；While[找到，i++；found=PrimeQ[2n+2i-1]&PrimeQ[2]；如果[found，lst=Flatten[Append[Table[{2j-1，2n-2（j-i）}，{j，i，n}]，lst]]]；第一次`
	交叉参考	`囊性纤维变性。A051252号,A072616号,A072617号,A072618号,A072184号。` `上下文中的序列：A160543型 A023810号 A102800号A235986型 A080197号 A341749飞机` `相邻序列：A072673号 A072674号 A072675号A072677号 A072678号 A072679号`
	关键词	`美好的,非n`
	作者	`T.D.诺伊2002年7月1日`
	状态	`经核准的`