登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: 编号:a158124
显示1-1个结果(共1个)。 第页1
    排序:关联|参考文献||被改进的|已创建     格式:长的|短的|数据
158124英镑 弱素数(或孤立素数):更改任何一个十进制数字都会产生一个复合数,但第一个数字不能更改为0。 +0
9
294001, 505447, 584141, 604171, 929573, 971767, 1062599, 1282529, 1524181, 2017963, 2474431, 2690201, 3070663, 3085553, 3326489, 4393139, 5152507, 5285767, 5564453, 5575259, 5974249, 6173731, 6191371, 6236179, 6463267, 6712591, 7204777, 7469789, 7469797, 7810223 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
这个定义可以重述为“带d位数的素数p,这样在距p的Hamming距离1处(以10为基数)就没有最多带d位的素数q”-N.J.A.斯隆2019年5月6日
对于以下k、5、6、7、8、9、10的值,此序列中<10^k的项数为0、6、43、406、3756、37300-让-马克·雷伯特2015年11月10日
链接
C.里维拉,弱素数
埃里克·魏斯坦的数学世界,易损素数
MAPLE公司
过滤器:=进程(n)
局部L,i,d,ds;
如果不是isprime(n),则返回false fi;
五十: =换算(n,基数,10);
对于i从1到nops(L)do
如果i=nops(L),则ds:={$1..9}减去{L[i]}
elif i=1然后ds:={1,3,7,9}减去{L[i]}
else ds:={$0..9}减去{L[i]}
fi;
对于ds-do中的d
如果isprime(n+(d-L[i])*10^(i-1)),则返回false fi;
od;
真的
结束进程:
选择(过滤器,[seq(i,i=11..10^6,2)])#罗伯特·伊斯雷尔2015年12月15日
数学
选择[Prime@Range[10^5],Function[n,Function[w,Total@Map[Boole@PrimeQ@#&,DeleteCases[#,n]]和@Union@Flatten@Map[函数[d,FromDigits@ReplacePart[w,d->#]和/@If[d==1,#,Prepend[#,0]&@Range@9],Range@Length@w]===0]@IntegerDigit@n]](*迈克尔·德弗利格2016年12月13日*)
黄体脂酮素
(PARI)isokp(n)={v=数字(n);对于(k=1,#v,w=v;如果(k==1,idep=1,idp=0);对于
列表(nn)={forprime(p=2,nn,if(isokp(p),print1(p,“,”));}\\米歇尔·马库斯2015年12月15日
(Python)
从sympy导入isprime
def h1(n):#hamming distance 1是n的邻居,不以0开头
s=str(n);d=“0123456789”;L=长度
从(int(s[:i]+c+s[i+1:])中得出的收益,对于d中的c,对于范围(L)中的i,如果c=s[i]和not(i==0和c==“0”)
def ok(n):返回isprime(n)和all(对于h1(n)中的k,不是isprim(k))
打印([k表示范围内的k(10**6),如果ok(k)])#迈克尔·布拉尼基2022年7月31日
交叉参考
参见。A050249号,A158125型(弱素数),A186995号,A192545号.
关键字
非n,基础
作者
埃里克·韦斯特因2009年3月13日
扩展
编辑人查尔斯·格里特豪斯四世2010年8月2日
缺少插入b文件的(3385)安德鲁·霍罗伊德2018年2月23日
状态
经核准的
第页1

搜索在0.004秒内完成

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:2024年4月24日13:00 EDT。包含371945个序列。(在oeis4上运行。)