搜索： 编号：a058196
|
| |
| |
|
|
|
2, 57, 1111, 17024, 224155, 2674957, 31352962, 363506969, 4127383480
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
0,1
|
|
|
链接
|
|
|
|
数学
|
NextPrime[n_Integer]：=模块[{k}，k=n+1；而[！PrimeQ[k]，k++]；k]；c=d=p=q=0；Do[While[d++；d<=10^n，q=NextPrime[q]；p=p+应用[Plus，RealDigits[q][[1]]；如果[PrimeQ[p]，c++]]；d--；打印[p]，{n，0，10}
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.004秒内完成
|
