_T.D.诺伊(否(自动变速箱)固态光谱.通用域名格式),_,2002年8月17日

OEIS服务器: https://oeis.org/edit/global/120

提议的

经核准的

给出了前51个术语..一(n个) >0 对于 n个=52,53,和 56,和 一(n个) =0 对于 n个=54,55,和 57.众所周知，对于58<=n个=59-66,71,73-79,81,84,87-96 和 98-<=推测对于所有n>，a（n）>09757。贪婪算法可用于快速找到许多n的解决方案。有关更多详细信息，请参阅谜题189的链接。Mathematica程序使用回溯算法计算排列。要打印独特的排列，请删除打印语句周围的注释。

经核准的

提议的

给出了前51个术语。已知n=59-66,71,73-79,81,84,87-96时，a（n）>0, 和98-200。据推测，对于所有n>97，a（n）>0。贪婪算法可以用于快速找到许多n的解决方案。有关更多详细信息，请参阅谜题189的链接。Mathematica程序使用回溯算法计算排列。要打印独特的排列，请删除打印语句周围的注释。

坚硬的,更多,美好的,非n,新的

nMax=12$递归极限=500；try[lev_]：=模块[{t,,j个,,圆形}，如果[lev>n,,circular=PrimeQ[soln[[1]]^2+soln[[n]]^2]和&PrimeQ[soln[1]]+soln[[n]]；如果[（！circular&&soln[[1]]<soln[[n]]）||（circular&&soln[1]]==1&soln[2]]<=soln[[n]]), (*]]), (*打印[soln]；*）碳纳米管++ ], (*++ ], (*否则，将另一个数字附加到soln列表*）t=soln[[lev-1]]；对于[j=1,,j<=长度[s[[t]]],]]],j个++,++,如果[！MemberQ[soln,,s[[t][[j]]]，soln[[lev]]=s[[t]][[j]]；尝试[lev+1]；土壤[[lev]]=0]]]；对于[lst={1}；n=2,,n≤n最大,,n个++,++,s=表格[{}, {[｛｝{n} ]；对于[i=1,,i<=n,,我++,++,对于[j=1,,j≤n,,j个++,++,如果[i！=j&&PrimeQ[i^2+j^2]&&PrimQ[i+j],],附加到[s[[i]],]],j] ]]]；soln=表[0, {, {n} ]；对于[cnt=0；i=1,,i<=n,,我++,++,soln[[1]=i；尝试[2]；附录[lst,,cnt]]；第一次

坚硬的,更多,美好的,非n,新的

nMax=12$RecursionLimit=500；试试[列夫_]:=_]以下为：=模[{t，j，循环}，如果[lev>n，循环=PrimeQ[soln[[1]]^2+soln[[n]]^2]&&PrimeQ[soln[[1]]+soln[[n]]；如果[（！circular&&soln[[1]]<soln[[n]]）||（circular&&soln[1]]==1&soln[2]]<=soln[[n]])，（*打印[soln]；*）cnt++]，（*在soln列表中追加另一个数字*）t=soln[[lev-1]]；对于[j=1，j<=长度[s[[t]]]，j++，如果[！MemberQ[soln，s[t][[j]]]；尝试[lev+1]；土壤[[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]&&PrimQ[i+j]，附加到[s[i]]，j]]]；soln=表[0，{n}]；对于[cnt=0；i=1，i<=n，i++，soln[[1]]=i；尝试[2]；附录[lst，cnt]]；第一次

坚硬的,更多,美好的,非n,新的

n最大=12; $; $递归限制=500；；try[lev_]：=模块[{t，j，circular}，如果[lev>n，circual=PrimeQ[soln[1]]^2+soln[[n]]^2]&&PrimeQ[soln[[1]]+soln[[n]]；如果[（！circular&&soln[[1]]<soln[[n]]）||（circular&&soln[1]]==1&soln[2]]<=soln[[n]])，（*打印[soln]; *)]; *)cnt++]，（*否则在soln列表中追加另一个数字*）t=soln[[lev-1]];]];对于[j=1，j<=长度[s[t]]]，j++，如果[！MemberQ[soln，s[t][[j]]，soln[[lev]]=s[[t]][[j]];]];尝试[lev+1];];土壤[[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]&&PrimQ[i+j]，附加到[s[i]]，j]]]；soln=表[0，{n}];}];对于[cnt=0；；i=1，i<=n，i++，soln[1]]=i；；尝试[2]]];]];附录[lst，cnt]];]];第一次

坚硬的,更多,美好的,非n,新的

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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

1,10

给出了前51个术语。已知n=59-66,71,73-79,81,84,87-96和98-200时，a（n）>0。据推测，对于所有n>97，a（n）>0。贪婪算法可以用于快速找到许多n的解决方案。有关更多详细信息，请参阅谜题189的链接。Mathematica程序使用回溯算法计算排列。要打印独特的排列，请删除打印语句周围的注释。

Carlos Rivera，<a href=“http://www.primepuzzles.net/puzzles/puzz_189.htm“>Puzzle 189：正方形和素数</a>

a（4）=1，因为基本上只有一种排列：{3,2,1,4}。

nMax=12$RecursionLimit=500；try[lev_]：=模块[{t，j，circular}，如果[lev>n，circual=PrimeQ[soln[1]]^2+soln[[n]]^2]&&PrimeQ[soln[[1]]+soln[[n]]；如果[（！circular&&soln[[1]]<soln[[n]]）||（circular&&soln[1]]==1&soln[2]]<=soln[[n]])，（*打印[soln]；*）cnt++]，（*否则将另一个数字附加到soln列表*）t=soln[[lev-1]]；对于[j=1，j<=长度[s[[t]]]，j++，如果[！MemberQ[soln，s[t][[j]]]；尝试[lev+1]；土壤[[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]&&PrimQ[i+j]，附加到[s[i]]，j]]]；soln=表[0，{n}]；对于[cnt=0；i=1，i<=n，i++，soln[[1]]=i；尝试[2]；附录[lst，cnt]]；第一次

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

坚硬的,更多,美好的,非n

T.D.Noe（Noe（AT）sspectra.com），2002年8月17日

经核准的