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：质数字符串，主要困惑和问题联系。

Daniel Starodubtsev，完整序列

埃里克·韦斯坦，数学世界：可截断素数

与可截断素数相关的序列的索引项

例子

139是因为（从右边去掉9）13是素数，而（从左边去掉1）3是素数。

数学

清除[s]；s[0]={2,3,5,7}；n=1；而[s[n]={}；做[k=s[n-1][[i]]；Do[p=j*10^n+k；If[PrimeQ[p]，AppendTo[s[n]，p]]，{j，9}]；Do[p=10*k+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]

打印（afull[：60]）#迈克尔·布拉尼基，2022年8月4日

交叉参考

囊性纤维变性。A024770号（右可运行素数），A024785号（左可运行素数），A077390号（左右截断素数），A080608型.

囊性纤维变性。A298048型（n位术语的数量）。

上下文中的序列：A080608型 A305352型 A347864飞机*A216578型 A094317号 A074834号

相邻序列：137809英镑 A137810号 A137811号*A137813号 A137814年 A137815号

关键词

基础,完成,非n

作者

T.D.诺伊2008年2月11日

状态

经核准的