|
|
A023144号 |
| 数k,使素数(k)==2(mod k)。 |
|
18
|
|
|
1, 3, 13, 15, 69, 73, 637321, 27066989, 27067095, 27067133, 179992909, 1208198629, 1208198853, 8179002209, 382465573515, 2636913003191, 18262325820323, 18262325820339, 6201265271239163, 6201265271239191, 6201265271239431, 43525513764815041, 43525513764815125
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
数学
|
NextPrim[n_]:=块[{k=n+1},While[!PrimeQ[k],k++];k] ;p=1;Do[If[Mod[p=NextPrim[p],n]==2,Print[n]],{n,1,10^9}](*罗伯特·威尔逊v2004年2月18日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|