|
| |
| |
|
|
|
3, 7, 311, 313, 317, 9733, 9739, 10973, 10979, 31097317, 73109731091, 97310973101, 97310973103, 97310973109733, 7310973109731091, 73109731097310973109731097, 97310973109731097310973101
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
数学
|
a={1,3,7,9}；
a1={0，1，3，7，9}；
数字=17；
b=扁平[表[10*总和[10^m*a1[[1+Mod[n+m，5]]，{m，0，n}]+a，{n，0，digits}]]；
c=表[If[PrimeQ[b[[n]]==真，b[[n]]，0]，{n，1，尺寸[b][1]}]；
d=删除[Union[c]，1]
|
|
|
交叉参考
|
|
|
|
关键字
|
非n,基础,较少的,未经编辑的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
