OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: 编号:a024770
显示1-1个结果(共1个)。 第页1
    排序:关联|参考文献||被改进的|已创建     格式:长的|短的|数据
A024770号 右可运行素数:每个前缀都是素数。 +0
56
2, 3, 5, 7, 23, 29, 31, 37, 53, 59, 71, 73, 79, 233, 239, 293, 311, 313, 317, 373, 379, 593, 599, 719, 733, 739, 797, 2333, 2339, 2393, 2399, 2939, 3119, 3137, 3733, 3739, 3793, 3797, 5939, 7193, 7331, 7333, 7393, 23333, 23339, 23399, 23993, 29399, 31193 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
重复删除最低有效数字的素数在每一步都给出一个素数,直到保留一个单数字素数。序列结束于a(83)=73939133=A023107号(10).
子序列由以下连续的右截断素数“链”组成:73939133、7393913、739391、73939、7393、739、73、7,与由该序列子集形成的其他链相比,产生最大的和:73939.133+7393913+739391+73939+7393+739+737+7=82154588-亚历山大·波沃洛茨基2008年1月22日
也可以看作是第n行列出n位数术语的表;行长度(n>=9时为0)由下式给出A050986号序列可以从一位数素数开始,然后对列表中的每一个p追加10*p和10(p+1)内的素数,通过向p追加一个数字而形成-M.F.哈斯勒2018年11月7日
参考文献
Roozbeh Hazrat,《数学:以问题为中心的方法》,施普林格伦敦出版社,2010年,第86-89页
链接
延斯·克鲁斯·安徒生,n=1..83时的n,a(n)表(完整的术语列表,摘自以下链接)
延斯·克鲁斯·安徒生,右旋素数
I.O.Angell和H.J.Godwin,关于可截断素数,数学。计算。31, 265-267, 1977.
R.Schroeppel,HAKMEM项目33; “俄罗斯娃娃初级”,但定义略有不同。
埃里克·魏斯坦的数学世界,可截断素数
MAPLE公司
s: =[1,3,7,9]:a:=[[2],[3],[5],[7]]:l1:=1:l2:=4:从l1到l2的j的do从1到4的k的do d:=[s[k],op(a[j])]:如果(isprime(op(convert(d,base,10,10^nops(d)))),那么a:=[op(a),d]:fi:od:od:l1:=l2+1:l2:=nops(a):如果(l1>l2)然后中断:fi:od:seq(op(convert(a[j],base,10,10^nops(a[j])),j=1..nops(a))#纳撒尼尔·约翰斯顿2011年6月21日
数学
最大值=100000;截断[p_]:=如果[PrimeQ[q=商[p,10]],q,p];ok[p_]:=固定点[截断,p]<10;p=1;A024770号= {}; 当[(p=NextPrime[p])<max时,如果[ok[p],AppendTo[A024770号,p]]];A024770号(*Jean-François Alcover公司2011年11月9日,巴黎之后*)
eppQ[n_]:=AllTrue[FromDigits/@Table[Take[IntegerDigits[n],i],{i,IntegerLength[n]-1}],PrimeQ];选择[Prime[Range[3400]],eppQ](*程序使用Mathematica版本10中的AllTrue函数*)(*哈维·P·戴尔2015年1月14日*)
黄体脂酮素
(哈斯克尔)
导入数据。列表(inits)
a024770 n=a024770_列表!!(n-1)
a024770_list=过滤器(\x->
all(==1)$map(a010051.read)$tail$inits$show x)a038618_list
--莱因哈德·祖姆凯勒2011年11月1日
(PARI){fileO=“b024770.txt”;v=vector(100);v[1]=2;v[2]=3;v[3]=5;v[4]=7;j=4;j1=1;write(fileO,“12”);write(k=1,9,z=10*v[i]+k;如果(i素数(z),j++;v[j]=z;写入(文件O,j,“,z);));}\\哈里·史密斯2008年9月20日
(PARI)对于(n=231193,v=n;而(i素数(n),c=n;n=(c-lift(Mod(c,10))/10);如果(n==0,打印1(v,“,”));n=v)\\阿尔卡迪乌斯·韦索洛夫斯基2014年3月20日
(PARI)A024770号=向量(9,n,p=concat(应用(t->素数([t,t+1]*10),如果(n>1,p)))\\ n位术语列表,1<=n<=9。使用concat(%)将其“展平”-M.F.哈斯勒2018年11月7日
(Python)
来自症状输入素数范围
p=λx:列表(素数范围(x,x+10));A024770号=p(0);i=0
当我<len(A024770号):A024770号+=p(A024770号[i] *10);i+=1#M.F.哈斯勒2020年3月11日
交叉参考
的超序列A239747型.
囊性纤维变性。A033664号,A024785号(左可运行素数),A032437号,A020994年,A052023号,A052024号,A052025号,A050986号,A050987号,A069866号,A077390号(左右可运行素数),A137812号(左右截断素数),A254751型,A254753型.
囊性纤维变性。A237600型用于base-16模拟。
关键词
非n,基础,容易的,完成,满的,美好的,标签
作者
状态
已批准
第页1

搜索在0.006秒内完成

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

最后修改时间:美国东部时间2024年5月23日01:37。包含372758个序列。(在oeis4上运行。)