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

 

标志
提示
(来自的问候整数序列在线百科全书!)
12395英镑 第一次出现素数缺口,这是完全幂。 2
2, 7, 89, 1831, 5591, 9551, 89689, 396733, 3851459, 11981443, 70396393, 202551667, 1872851947, 10958687879, 47203303159, 767644374817, 1999066711391, 8817792098461, 78610833115261, 497687231721157, 2069461000669981 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
到目前为止,权力是按数字顺序发生的。下面是素数和幂的列表:[7,4],[89,8],[1831,16],[5591,32],[9551,36],[89689,64],[396733,100],[3851459,128],[11981443,144],[70396393,196],[202551667,216],[1872851947,256],[10958687879,324]。我已经搜索到素数p=26689111613。
旧的定义令人困惑。意思是:素数p,这样nextprime(p)-p是A001597号(或A075090型:即使是完美幂,对于n>1),p是紧随其后的最小素数-M.F.哈斯勒,2018年10月18日
A138198号是一个子序列-M.F.哈斯勒,2018年10月18日
链接
Thomas R.Nicely,第一次出现的素数间隙[有关本地副本,请参阅A000101号]。
公式
前一个质数A123996号.
例子
a(2)=89,因为下一个素数(89)-89=97-89=8是连续素数之间8的第一次出现。
MAPLE公司
带有(数字理论);egcd:=proc(n::posint)局部L;如果n>1,则L:=系数(n)[2];五十: =地图(z->z[2],L);return igcd(op(L))否则返回1 fi结束:P:={};Q: =[];p: =2;对于w到1,对于k从0开始做#如果k mod 10^6=0,则保持跟踪,然后打印(k,p)fi;lastprime:=p;q: =下一素数(p);d: =q-p;x: =egcd(d);如果x>1且P中没有d,则P:=P联合{d};Q: =[op(Q),[p,d]];打印(p,d);打印(P);打印(Q);fi;p: =q;od od;编号让它在启用自动保存的情况下运行。
数学
NextPrim[n_]:=块[{k=n+1},While[!底漆Q@k,k++];k] ;perfectPowerQ[x_]:=GCD@@Last/@系数整数@x > 1; dd={1};pp={2};qq={3};p=3;做[q=NextPrim@p; d=q-p;如果[perfectPowerQ@d公司 && ! 成员Q[dd,d],打印@q; 附录[pp,p];附加到[dd,d]];p=q,{n,10^7}];聚丙烯(*罗伯特·威尔逊v2006年11月3日*)
黄体脂酮素
(PARI)S=[];打印1(p=2);对于素数(q=1+p,i幂(q-p)&&!setsearch(S,q-p)&&!print1(“,”p)&&S=集合联合(S,[q-p]);p=q)\\M.F.哈斯勒,2018年10月18日
交叉参考
囊性纤维变性。A080370型A113472号A000230型A001597号(完美力量),A075090型A002386号1998年1月.
关键词
非n
作者
扩展
编辑和扩展人罗伯特·威尔逊v,2006年11月3日,2006年10月4日修正
更好的定义来自M.F.哈斯勒,2018年10月18日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月28日16:48。包含372916个序列。(在oeis4上运行。)