%I#24 2021年2月11日22:53:54

%S 1,5,7944516055270670451208198549120819860912088198615，

%电话2636913002983885926927514798992692751483885992692551833，

%电话：435255137648150354352551776481505743525513176481517343525513464816367

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

%Ca（18）>2.8*10^20.-_Giovanni Resta_，2020年2月23日

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

%o（鼠尾草）

%o定义A023148（最大值）：

%o术语=[]

%o p=2

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

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

%o p=下一个素数（p）

%o退货条款

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

%Y参考A092048、A023143、A023144、A023145、A023146、A023147、A023149、A023150、A023151、A023152。

%K nonn，更多

%O 1,2号机组

%大卫·W·威尔逊_

%E由_Robert G.Wilson v扩展，2004年2月18日

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

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

%E a（10）-a（17）摘自Giovanni Resta，2020年2月23日