%I#37 2023年1月28日12:10:16

%S 2,3,5,7,13,17,23,29,31,37,43,47,53,59,67,71,73,79,83,97103107113，

%电话：1271311371391571631671731791931972232292339269，

%电话：2712832933073113173313373347353359367373379383397431439

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

%C A179336的后续。-_Reinhard Zumkeller，2010年7月11日

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

%C对于不允许前导零的版本，请参阅A305352_杰佩·斯蒂格·尼尔森，2018年8月1日

%H David W.Wilson，n的表，n=1..10000的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/DeleteablePrime.html“>可删除素数</a>

%e 410256793是可删除素数，因为序列41025679341256734156734156734567346767676767，67，7的每个成员都是素数（Weisstein，Caldwell）。

%p读取（“转换”）：

%p是A080608:=进程（n）

%p选项记住；

%p本地dgs，i；

%p如果是素数（n），则

%如果n<10，则为p

%p真；

%p其他

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

%p代表i从1到nops（dgs）do

%p底土（i=NULL，dgs）；

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

%p如果procname（%），则

%p返回true；

%p end if；

%p端do：

%p假；

%p end if；

%p其他

%p假；

%p end if；

%p端程序：

%p n：=1；

%p代表i从1到500 do

%p p：=i素数（i）；

%p如果是A080608（p），则

%p打印f（“%d%d\n”，n，p）；

%pn:=n+1；

%p fi；

%截止日期：#R.J.Mathar_，2014年10月11日

%t 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]（*_Michael De Vlieger_，2018年8月2日*）

%o（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））；2018年8月1日，Jeppe Stig Nielsen

%o（Perl）使用理论“：all”；sub是{my$n=shift；除非is_prime（$n），否则返回0；my@d=todigits（$n

%o（Python）

%o来自sympy import isprime

%o定义正常（n）：

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

%o如果n＜10：返回True

%o s=str（n）

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

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

%o打印（[k代表范围（440）内的k，如果可以（k）]）#_Michael S.Branicky_，2023年1月28日

%Y参见A080603、A096235-A096246、A305352。

%K nonn，easy，基本

%O 1,1号机组

%2003年2月25日，A·达维德·威尔逊