A137812-OEIS公司

A137812号

左或右可调素数。

2, 3, 5, 7, 13, 17, 23, 29, 31, 37, 43, 47, 53, 59, 67, 71, 73, 79, 83, 97, 113, 131, 137, 139, 167, 173, 179, 197, 223, 229, 233, 239, 271, 283, 293, 311, 313, 317, 331, 337, 347, 353, 359, 367, 373, 379, 383, 397, 431, 433, 439, 443, 467, 479, 523, 547, 571 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`重复地从左边或右边删除一个数字只产生素数。该序列中有149677个术语，以8939662423123592347173339993799结尾。` `n位术语的数量为A298048型（n） -乔恩·肖恩菲尔德2022年1月28日`
	链接	`T.D.Noe，n=1..10000时的n，a（n）表` `I.O.Angell和H.J.Godwin，关于可截断素数，数学。计算。31, 265-267, 1977.` `T.D.Noe，所有术语的绘图` `卡洛斯·里维拉，谜题2：质数字符串，主要困惑和问题联系。` `丹尼尔·斯塔罗德布采夫，完整序列` `Eric Weisstein，数学世界：可截断素数` `与可截断素数相关的序列的索引项`
	例子	`139在这里是因为（从右边去掉9）13是质数，（从左边去掉1）3是质数。`
	数学	`清除[s]；s[0]={2,3,5,7}；n=1；而[s[n]={}；做[k=s[n-1][[i]]；Do[p=j10^n+k；If[PrimeQ[p]，AppendTo[s[n]，p]]，{j，9}]；Do[p=10k+j；如果[PrimeQ[p]，AppendTo[s[n]，p]]，{j，9}]，{i，长度[s[n-1]}]；s[n]=并集[s[n]；长度[s[n]]>0，n++]；t=s[0]；Do[t=连接[t，s[i]]，{i，n}]；t吨`
	黄体脂酮素	`（Python）` `从sympy导入isprime` `定义代理（）：` `素数=[2,3,5,7]` `当len（素数）>0时：` `素数产量` `cands=设置（int（d+str（p））for p in primes for d in“123456789”）` `cands \|=集合（int（str（p）+d）for p in primes for d in“1379”）` `素数=已排序（c代表c，如果是素数（c），则以cd为单位）` `afull=[an代表agen（）中的an]` `打印（完整[：60]）#迈克尔·布拉尼基2022年8月4日`
	交叉参考	`囊性纤维变性。A024770美元（右可运行素数），A024785美元（左可运行素数），A077390号（左和右可截断素数），A080608型.` `囊性纤维变性。A298048型（n位术语的数量）。` `上下文中的序列：A080608型 A305352型 A347864飞机A216578型 A094317号 A074834号` `相邻序列：A137809号 137810英镑 A137811号A137813号 A137814号 A137815号`
	关键词	`基础,完成,非n`
	作者	`T.D.诺伊2008年2月11日`
	状态	`经核准的`