%I#25 2021年2月17日04:18:07

%S 1,7,17109281169659266316899131689914516899295749973611，

%电话：5067034877506703492534878259111626582230375

%N数k，使素数（k+1）+素数（k）==1（mod k）。

%t a=b=0；Do[b=素数[n+1]；如果[Mod[a+b，n]==1，打印[n]]；a=b，{n，1，10^9}]

%o（鼠尾草）

%o定义A067185（最大值）：

%o术语=[]

%o p=2

%o表示范围（1，最大值+1）内的n：

%o q=下一素数（p）

%o如果不是（p+q-1）%n：

%o术语追加（n）

%o p=q

%o退货条款

%o#_Eric M.Schmidt_，2013年2月5日

%o（PARI）isok（k）=（素数（k+1）+素数（k））%k==1；\\_米歇尔·马库斯，2021年2月17日

%Y参考A066895（==0而不是1）。

%K nonn，更多

%O 1,2号机组

%2002年2月19日，A _贝尼特·克洛伊特

%E由_Robert G.Wilson v_编辑和扩展，2002年2月19日

%E由_David W.Wilson扩展，2002年2月20日

%E a（11）-a（14）摘自Donovan Johnson，2010年3月10日

%E埃里克·施密特（_Eric M.Schmidt）第一任期，2013年2月5日