显示1-1个结果(共1个)。
第页1
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
评论
重复删除最低有效数字的素数在每一步都给出一个素数,直到保留一个单数字素数。序列结束于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页
链接
I.O.Angell和H.J.Godwin,关于可截断素数,数学。计算。31, 265-267, 1977.
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日
数学
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->
所有(==1)$map(a010051.read)$tail$inits$show x)a038618_list
(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)
从sympy导入primerange
交叉参考
囊性纤维变性。A033664号,A024785号(左可运行素数),A032437号,A020994年,A052023号,A052024号,A052025号,A050986号,A050987号,A069866美元,A077390号(左右可运行素数),A137812号(左或右可截断素数),A254751型,A254753型.
搜索在0.004秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日19:38。包含376089个序列。(在oeis4上运行。)
|