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是一个可删除素数，因为序列4102567934125673415673415673415673，45673467，67，7的每个成员都是素数（Weisstein，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:=ithprime（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，#]和]]]@{#，Prime[Length@#+1]}&，Prime@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）：return 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型.` `上下文中的序列：A247980型 A234851型 A179336号A305352型 A347864飞机 A137812号` `相邻序列：A080605 A080606型 A080607型A080609型 A080610型 A080611型`
	关键词	`非n,容易的,基础`
	作者	`大卫·W·威尔逊2003年2月25日`
	状态	`经核准的`