登录
OEIS基金会由OEIS的用户捐款和西蒙斯基金会的资助。

 

标志


提示
问候整数序列的在线百科全书!)
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 51A07345.

语境中的顺序:A3329 A066 766 A78105*A115717 A115718 A204181

相邻序列:A074060 A074061 A074062*A074064 A074065 A074066

关键词

更多诺恩

作者

诺德8月17日2002

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改1月23日23时40 EST 2020。包含331177个序列。(在OEIS4上运行)