|
| |
|
| A158641号 |
| 强素数p：p的任意一个数字加2产生素数（p中没有数字8和9） |
|
0
|
|
|
|
3, 5, 11, 17, 41, 107, 137, 347, 2111, 2657, 3527, 4421, 6761, 21011, 24371, 32057
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
所有术语均为双生子中较小的术语。
序列是有限的。特别是，由于k=0,1，…，的2*10^k，因此没有超过5位的术语，。。。，5给出了所有非零余数的模7，这意味着将2加到某个数字上会得到7的倍数-马克斯·阿列克谢耶夫2010年4月25日
|
|
|
链接
|
|
|
|
例子
|
2111在这个序列中，因为所有2111、4111、2311、2131和2113都是质数。
32057在这个序列中，因为所有32057、52057、34057、32257、32077和32059都是质数。
|
|
|
MAPLE公司
|
Lton：=proc（L）局部i；加（op（i，L）*10^（i-1），i=1..nops（L））；结束：isA158641：=proc（p）本地pdg，pplus，i；如果isprime（p），则pdgs:=转换（p，base，10）；如果convert（pdg，set）与{8，9}<>{}相交，则为false；对于i从1到nops（pdgs）的其他情况，pplus：=底土（i=2+op（i，pdgs，pdg））；如果不是isprime（Lton（pplus）），则返回（false）；fi；od：真；fi；否则为假；fi；结束：对于1中的n，p：=第i个素数（n）；如果是A158641（p），则打印（p）；fi；日期：#R.J.马塔尔2009年4月16日
|
|
|
数学
|
spQ[p_]：=Max[IntegerDigits[p]]<8&&AllTrue[FromDigits/@Table[MapAt[2+#&，IntegerBigits[p]，n]，{n，Integer Length[p]}]，PrimeQ]；选择[Prime[范围[3500]]，spQ](*哈维·P·戴尔2022年11月26日*）
|
|
|
黄体脂酮素
|
（PARI）测试（p）=我的（v=评估（Vec（Str（p）））；对于（i=1，#v，如果（v[i]>7，返回（0））；对于（i=0，#v-1，如果（！i素数（p+2*10^i），返回（0））；1
对于素数（p=2，4e9，if（isprime（p+2）&&测试（p），打印1（p“，”））\\查尔斯·格里特豪斯四世2009年9月9日
（PARI）具有（n）=如果（vecmax（集合（数字（n）））>7，则返回（0））；对于（i=0，#位数（n）-1，如果（！i素数（n+2*10^i），返回（0））；1
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,满的,完成,基础
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
