|
| |
|
| A107367号 |
| 数字在前三项中没有出现的素数。 |
|
0
|
|
|
|
2, 3, 5, 7, 11, 23, 59, 67, 101, 223, 449, 557, 601, 823, 4999, 5557, 6011, 8233, 9949, 57557, 60101, 82223, 94949, 555557, 600011, 822223, 994949, 5555777, 6000011, 8222323, 9444949
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
数学
|
d=2；e=3；f=5；b={2,3,5}；id[t_]：=整数位数[t]；Do[p=素数[n]；如果[Intersection[Union[id[d]，id[e]，id[C]]，id[p]]=={}，b=Append[b，p]；d=e；e=f；f=p]，{n，100000}]；b
nxt[{a_，b_，c}]：=模块[{dgs=Union[Flatten[IntegerDigits/@{a，b，c}]]，d=NextPrime[c]}，While[Intersection[dgs，IntegerDigits[d]]={}，d=下一素数[d]]；{b，c，d}]；嵌套列表[nxt，{2，3，5}，30][[全部，1]](*哈维·P·戴尔2021年10月11日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
