|
| |
|
| A057880型 |
| 删除所有出现的数字d后，具有4个不同数字的素数仍为素数（不允许前导零）。 |
|
2
|
|
|
|
6173, 12239, 16673, 19531, 19973, 21613, 22397, 22937, 34613, 36137, 47933, 51193, 54493, 56519, 56531, 56591, 69491, 69497, 72937, 76873, 93497, 96419, 96479, 96497, 98837, 112939, 118213, 131779, 143419, 144497, 159319, 163337
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
MAPLE公司
|
过滤器：=proc（L）局部d，Lp，i；
如果L[-1]=0，则返回假fi；
如果不是isprime（加（L[i]*10^（i-1），i=1..nops（L））），则返回false fi；
convert（L，set）do中的d
Lp:=删除（`=`，L，d）；
如果Lp[-1]=0或不是isprime（add（Lp[i]*10^（i-1），i=1..nops（Lp）），则返回false fi；
od；
真的
结束进程：
getCands:=proc（n，m）选项记住；
如果m=1，则返回[seq（[d$n]，d=0..9）]fi；
如果n<m，则返回[]fi；
[seq（seq（[i，op（L）]，i={$0..9}减去转换（L，set）），L=进程名（n-1，m-1）），
seq（seq（[i，op（L）]，i=转换（L，set）），L=进程名（n-1，m））]
结束进程：
[seq（op（排序（map（t->add（t[i]*10^（i-1），i=1..nops（t））），选择（filter，getCands（d，4））））、d=4..6）]#罗伯特·伊斯雷尔2017年1月19日
|
|
|
数学
|
p4dQ[n_]：=模块[{idn=IntegerDigits[n]}，计数[idn，0]==0&&Count[DigitCount[n]，0]==6&&AllTrue[FromDigits/@Table[DeleteCase[idn、k]，{k，Union[idn]}]，PrimeQ]]；选择[Prime[Range[15000]]，p4dQ]（*程序使用Mathematica版本10中的AllTrue函数*）(*哈维·P·戴尔2017年9月30日*）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
