|
| |
|
| A224320型 |
| 没有“3”作为数字的素数，当任何一个数字被替换为“3”时，它仍然是素数。 |
|
2
|
|
|
|
2, 5, 7, 11, 17, 41, 47, 71, 107, 167, 179, 197, 449, 859, 1019, 1061, 1499, 2089, 16901, 47717, 56269, 86269, 11917049
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
没有更多条款<10^13。
|
|
|
链接
|
|
|
|
数学
|
lst＝｛｝；n=3；Do[If[PrimeQ[p]，i=整数[p]；如果[FreeQ[i，n]，t=0；s=整数长度[p]；Do[如果[PrimeQ@FromDigits（起始数字）@插入[Drop[i，{d}]，n，d]，t++，Break[]]，{d，s}]；如果[t==s，追加到[lst，p]]]，{p，86269}]；第一次
p3Q[n_]：=模块[{idn=IntegerDigits[n]}，FreeQ[idn，3]&&AllTrue[FromDigits/@Table[ReplacePart[idn、i->3]，{i，IntegerLength[n]{]，PrimeQ]]；选择[Prime[Range[10^6]]，p3Q]（*程序使用Mathematica版本10*中的函数AllTrue）(*哈维·P·戴尔2014年8月20日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
基础,更多,非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
