A188809-OEIS公司

A188809号

在不允许前导零的规则下，可严格删除的素数。

三

2, 3, 5, 7, 13, 17, 29, 31, 43, 47, 59, 67, 71, 79, 83, 97, 103, 107, 127, 157, 163, 269, 271, 359, 383, 439, 457, 463, 487, 509, 547, 569, 571, 607, 643, 659, 683, 701, 709, 751, 769, 863, 907, 929, 983, 1087, 1217, 1303, 1427, 1487, 2069, 2371, 2609, 2671 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`严格可删除素数是可删除的素数，其中要删除的数字的选择是唯一的（所有其他选择都给出非素数）。`
	链接	`Arkadiusz Wesolowski，n=1..10000时的n，a（n）表` `Chris Caldwell，主要词汇表，可删除素数` `卡洛斯·里维拉，谜题138。可删除素数，主要困惑和问题联系。`
	例子	`103是一个成员，因为删除一个数字会得到一个前导零的03，或者给出13或10中的一个。2017不是一个成员，因为删除一个数字会得到017，它有一个前导零，或者给出217、207或201中的一个，它们都是复合数字-阿尔卡迪乌斯·韦索洛夫斯基2021年11月27日`
	数学	`lst1={}；Do[If[PrimeQ[n]，p=n；标签[开始]；lst2={}；Do[i=整数位数[p]；c=FromDigits@拖放[i，{d}]；如果[Length[i]-1==IntegerLength[c]，AppendTo[lst2，c]]，{d，整数长度@p}]; t=选择[lst2，PrimeQ[#]&]；如果[Length[t]==1，p=FromDigits[t]；转到[开始]]；如果[IntegerLength[p]==1，AppendTo[lst1，n]]]，{n，2671}]；lst1级(阿尔卡迪乌斯·韦索洛夫斯基2013年2月22日）`
	交叉参考	`参见。A080608型（可删除素数）。` `上下文中的序列：A094947号 A231474型 A092621号A350443 A152449号 A048975号` `相邻序列：A188806号 A188807号 2008年1月18日A188810号 A188811号 A188812号`
	关键词	`非n，基础`
	作者	`阿尔卡迪乌斯·韦索洛夫斯基2011年4月11日`
	扩展	`姓名澄清人阿尔卡迪乌斯·韦索洛夫斯基2021年11月27日`
	状态	`经核准的`