A080608-OEIS公司

A080608型

可删除素数：删除一些数字会留下空字符串或另一个可删除的素数（可能前面有一些零）的素数。

2, 3, 5, 7, 13, 17, 23, 29, 31, 37, 43, 47, 53, 59, 67, 71, 73, 79, 83, 97, 103, 107, 113, 127, 131, 137, 139, 157, 163, 167, 173, 179, 193, 197, 223, 229, 233, 239, 263, 269, 271, 283, 293, 307, 311, 313, 317, 331, 337, 347, 353, 359, 367, 373, 379, 383, 397, 431, 433, 439

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

的后续A179336号. -莱因哈德·祖姆凯勒2010年7月11日

删除数字后出现的数字中允许使用前导零。例如，素数100003是可删除的，因为序列00003、0003、003、03、3由素数组成。正因为如此，可删除素数似乎在10次方以上的区域中相对常见。例如10^1000+2713是一个可删除素数-杰佩·斯蒂格·尼尔森，2018年8月1日

有关不允许前导零的版本，请参阅A305352型. -杰佩·斯蒂格·尼尔森，2018年8月1日

链接

David W.Wilson，n=1..10000时的n，a（n）表

埃里克·魏斯坦的数学世界，可删除素数

例子

410256793是可删除的素数，因为序列410256793、41256793、4125673、415673、45673、4567、467、67、7的每个成员都是素数（Weistein，Caldwell）。

MAPLE公司

读取（“转换”）：

isA080608:=进程（n）

选项记忆；

本地dgs，i；

如果是素数（n），则

如果n<10，则

真；

其他的

dgs:=转换（n，基数，10）；

对于i从1到nops（dgs）do

底土（i=NULL，dgs）；

digcatL（ListTools[反向]（%））；

如果procname（%），则

返回true；

结束条件：；

结束do：

假；

结束条件：；

其他的

假；

结束条件：；

结束进程：

n：=1；

我从1岁到500岁

p：=第i个素数（i）；

如果是A080608（p），则

printf（“%d%d\n”，n，p）；

n：=n+1；

fi；

结束do：#R.J.马塔尔2014年10月11日

数学

Rest@Union@Nest[Function[{a，p}，Append[a，With[{w=IntegerDigits[p]}，If[#==True，p，0]&@AnyTrue[Array[FromDigits@Delete[w，#]&，Length@w]！FreeQ[a，#]&]]]]@@{#，素数[Length@#+1]}&，素数@Range@PrimePi@10，81](*迈克尔·德弗利格2018年8月2日*）

黄体脂酮素

（PARI）是（n）=！ispseudoprime（n）&&return（0）；my（d=数字（n））#d==1&&返回（1）；for（i=1，#d，is（from digits（vecextract（d，Str（“^”i）））&&return（1））；0 \\杰佩·斯蒂格·尼尔森，2018年8月1日

（Perl）使用理论“：all”；sub是{my$n=shift；除非is_prime（$n），否则返回0；my@d=todigits（$n#达娜·雅各布森2018年11月16日

（Python）

从sympy导入isprime

定义正常（n）：

如果不是isprime（n）：返回False

如果n<10：返回True

s=str（n）

si=（s[：i]+s[i+1:]对于范围内的i（len（s）））

对于si中的t，返回任意（ok（int（t））

打印（[k代表范围（440）中的k，如果正常（k）]）#迈克尔·布拉尼基2023年1月28日

交叉参考

囊性纤维变性。A080603型,A096235号-A096246号,A305352型.