%我#25 2021年2月11日22:54:32

%S 1,2,10,11,35,37,80100364251711251717251731251735251741251770，

%电话：4124456412458227067096270675067520697066970979701769709723，

%电话：6970986869709931697099346576982546576982646576983112081985488179002130

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

%H Giovanni Resta，n的表格，n=1..46的a（n）</a>

%t NextPrim[n_]：=块[{k=n+1}，而[！PrimeQ[k]，k++]；k] ；p=1；做[If[Mod[p=NextPrim[p]，n]==9，Print[n]]，{n，1，10^9}]（*_Robert G.Wilson v_，Feb 18 2004*）

%o（圣人）

%o定义A023151（最大值）：

%o术语=[]

%o p=2

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

%o如果（p-9）%n==0：术语.append（n）

%o p=下一素数（p）

%o退货条款

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

%Y参见A092051、A023143、A023144、A02145、A023146、A03147、A023148、A0230149、A0232150、A023152。

%K nonn公司

%O 1,2号机组

%A·热心的W·威尔逊_

%E更多条款摘自Robert G.Wilson v_，2004年2月18日

%E a（25）-a（29）摘自_Robert G.Wilson v_，2006年2月22日

%E前两个术语由_Eric M.Schmidt插入，2013年2月5日