%I#23 2019年4月4日14:33:43

%S 10,2,7,4,10,17,15,15,17,11,4,23,33,24,19,16,24,16,31,39,30,24,11，

%电话：15,39,30,52,66,41,29,23,48,43,15,15,43,38,39,30-52,68,64,68,34,19，

%U 27,39,35,22,36,32,20,19,32,38,72,71,59

%N排列数q_1。。。，7个连续素数p_n，p{n+1}，…，的q_7。。。，p_{n+6}，其中q_1=p_n和q_7=p_{n+6}，以及|q_1-q_2|，|q_2-q_3||q6-q7|，q7-q1|成对区分，其中pk表示第k素数。

%C对于每个k=3,4,5,6有k个连续素数p_n，p_{n+1}。。。，p_{n+k-1}，这样就没有置换q_1。。。，p_n的q_k，p_{n+1}。。。，p_{n+k-1}与|q_1-q_2||q个_｛k-1｝-q_k|，|q_k-q_1|成对区分。这样的连续素数包括（3，5，7），（5，7，11，13），（3，五，七，十一，13）和（p{2209}，p{2210}，…，p{22.14}）=（19471，19477，19483，19489，19501，19507）。

%对于k>7，作者曾认为对于任何k个连续素数p_n，p_{n+1}。。。，p{n+k-1}总是存在置换q_1。。。，p_n的q_k，p_{n+1}。。。，p_{n+k-1}与|q_1-q_2||q个_{k-1}-q_k|，|q_k-q_1|成对区分。但正如诺姆·D·埃尔基斯（_Noam D.Elkies_）所指出的那样，这不太可能是真的。

%C有关相关推测，请参见A185645。

%孙志伟，n的表，n的a（n）=1..10000</a>

%H Noam D.Elkies，<a href=“http://listserv.nodak.edu/cgi-bin/wa.exe？A2=NMBRTHRY;fdca3ef0.1308“>Re:关于连续素数排列的猜想，给数论列表的消息，2013年8月31日。

%e a（2）=2，因为正好有两个置换q_1，。。。，3,5,7,11,13,17,19中的q_7满足要求：（q_1，…，q_7）=（3,7,17,13,5,19），（3,11,13,17,5,19,7）。

%tV[n_，i_]：=部分[Permutations[{素数[n+1]，素数[n+2]，素素[n+3]，素元[n+4]，素菜[n+5]}]，i]

%t Do[m=0；Do[If[Length[Union[｛Abs[Part[V[n，i]，1]-Prime[n]]｝，Table[Abs[Part[V[n，i]，j]-If[j<5，Part[V[n，i]，j+1]，Prime[n+6]]，{j，1,5}]]<6，Goto[aa]]；

%t m=m+1；标签[aa]；继续，{i，1,5！}]；打印[n，“”，m]；继续，{n，1,20}]

%t A187815[n_]：=模块[{p，c=0，i=1，j，q}，

%t p=排列[表[素数[j]，{j，n+1，n+5}]]；

%t当[i<=长度[p]时，

%tq=连接[{素数[n]}，p[i]]，{素数[n+6]}]；i++；

%t如果[长度[

%t联合[加入[

%t表格[Abs[q[[j]]-q[[j+1]]]，{j，1，6}]，{Abs[

%tq[[7]]-q[[1]]}]]==7，c++]]；c] ；

%t表[A187815[n]，{n，1，60}]（*报价，2019年4月4日*）

%Y参考A000040、A185645、A228728。

%K nonn公司

%O 1,1号机组

%A _孙志伟，2013年8月30日