|
| |
|
| A074063 |
| A（n）是整数，1，2，3，…，n可以按顺序排列的数目，使得（1）相邻整数与素数相加，（2）相邻数的平方和素数。旋转和反转只计算一次。 |
|
零
|
|
|
|
1, 1, 1，1, 0, 1，0, 0, 0，3, 1, 1，0, 0, 0，0, 0, 0，0, 0, 0，0, 0, 0，0, 0, 0，0, 0, 0，2, 0, 0，0, 0, 0，0, 0, 0，γ，γ，γ，γ
（列表；图表；参考文献；听；历史；文本；内部格式）
|
|
|
|
抵消
|
1,10
|
|
|
评论
|
给出了前51个术语。a（n）＞0，n＝52, 53，56，a（n）＝0，n＝54, 55，57。已知a（n）＞0为58 <n= 200。推测a（n）＞0，n＞57。贪心算法可以用来快速找到许多N的解决方案，参见链接到谜题189以获得更多的细节。Mathematica程序使用回溯算法来计算排列。若要打印独特的配置，请删除打印语句周围的注释。
|
|
|
链接
|
n，a（n）n＝1…51的表。
Carlos Rivera谜题189：一行中的正方形和素数
|
|
|
例子
|
A（4）＝1，因为本质上有一种排列：{3，2，1，4}。
|
|
|
Mathematica
|
nMax＝12；$递归限制＝500；尝试[LeVix]：= { t，j，循环}，如果[Lev> n，循环＝Primeq[SOLN[[ 1 ] ] ^ 2 + SOLN[[n] ^ 2 ] & Primeq [Saln[[1 ] ] + SSON[[N] ]；IF（！）循环[＆[s] [[1 ] ] < Saln [[n]）〉（循环& & Sn[〔1〕＝＝1 & & SOLN[〔2〕〕<＝SOLN[[N[]，（*Prime[Surn]；*）CNT++]，（*否则附加另一个数到SOLN列表*）t= SOLN[[LU-1] ]；对于[j＝1，j <＝长度[s[[t] ] ]，j++，IF！SIMN，[S[[t] [[j] ] ]，SOLN[[LV] ] =S[[t] ] [j]；尝试[Le=[LeV]＝0 ] ]；对于[LST={ 1 }；n＝2，n<＝nMax，n++，s=表[{}，{n}] ]；对于[ i＝1，i＜n，i＋]，对于[j＝1，j <＝n，j++，如果i ]！= j & & Primeq [i ^ 2 +j^ 2 ] & Primeq[i+j]，AppEdto[S[[i]，j] ] ]；Snn＝表[0，{N}]；对于[CNT＝0；i＝1，i <＝n，i++，Saln [[1 ] ]＝i；尝试[2 ] ]；
|
|
|
交叉裁判
|
囊性纤维变性。A0734 51，A07345.
语境中的顺序：A3329 A066 766 A78105*A115717 A115718 A204181
相邻序列：A074060 A074061 A074062*A074064 A074065 A074066
|
|
|
关键词
|
硬，更多，好，诺恩
|
|
|
作者
|
诺德8月17日2002
|
|
|
地位
|
经核准的
|
| |
|
|
