登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
邮编:A158124 弱素数(或孤立素数):改变任何一个十进制数总是产生一个复合数,但第一个数字不能改为0。 7
294001、505447、584141、604171、929573、971767、1062599、1282529、15241812017963、2474431、2690201、3070663、3085553、3326489、43931395152507、5285767、5564453、5575259、5974249、617373731、6191371、6236179、6463267 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,1

评论

这个定义可以重述为“素数p与d位数,使得在与p的汉明距离1处(以10为基数)没有最多d位数的素数q”。-N、 斯隆2019年5月6日

对于以下k,5,6,7,8,9,10,这个序列中<10^k的项数是0,6,43,406,3756,37300。-让-马克·雷伯特2015年11月10日

链接

让-马克·雷伯特,n=1..3756的n,a(n)表

C、 里维拉,弱素数

埃里克·韦斯坦的数学世界,易损素数

枫木

过滤器:=proc(n)

本地L、i、d、ds;

如果不是isprime(n),则返回false fi;

L:=换算(n,基数,10);

因为我从1到没有

如果i=nops(L),则ds:={$1..9}减去{L[i]}

elif i=1则ds:={1,3,7,9}减去{L[i]}

否则ds:={$0..9}减{L[i]}

金融机构;

对于d在ds do中

如果isprime(n+(d-L[i])*10^(i-1)),则返回false fi;

外径

外径;

是的

结束过程:

选择(过滤器,[顺序(i,i=11..10^6,2)])#罗伯特·以色列2015年12月15日

数学

选择[Prime@Range[10^5],函数[n,Function[w,Total@Map[Boole@PrimeQ@#&,deletecase[#,n]]&@Union@flant@Map[Function[d,FromDigits@ReplacePart[w,d->#]&/@If[d==1,#,Prepend[#,0]&@Range@9],Range@Length@w]==0]@IntegerDigits@n]](*迈克尔·德维列格2016年12月13日*)

黄体脂酮素

(PARI)isokp(n)={v=数字(n);对于(k=1,#v,w=v;如果(k==1,idep=1,idep=0);对于(j=idep,9,如果(j!return(1);如果是,则返回[nte(1);如果是,则返回[ntek];如果是,则返回[ntek];如果是,则返回[ntek];如果是,则返回[ntek];如果是,则返回[ntek];如果是,则返回[ntek];如果是,则返回[test];如果是,则返回[nte(1);[nte(1)

lista(nn)={forprime(p=2,nn,if(isokp(p),print1(p,“,”););}\\米歇尔·马库斯2015年12月15日

交叉引用

囊性纤维变性。A050249号,邮编:A158125(弱素数),A186995年,邮编:A192545.

上下文顺序:A255754号 甲254843 A318787型*A050249号 A224973号 A328664飞机

相邻序列:邮编:A158121 A158122型 邮编:A158123*邮编:A158125 邮编:A158126 邮编:A158127

关键字

,基础

作者

埃里克·W·维斯坦2009年3月13日

扩展

编辑查尔斯R格雷特豪斯四世2010年8月2日

缺少a(3385)插入b文件安德鲁·豪罗伊德2018年2月23日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年7月11日17:21。包含335626个序列。(运行在oeis4上。)