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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A279931型 在从n^2到(n+1)^2的闭合区间内,连续复合整数序列的最大长度。 1
2, 3, 3, 5, 3, 5, 5, 7, 8, 6, 5, 9, 11, 9, 6, 13, 9, 7, 9, 11, 11, 12, 9, 11, 9, 11, 11, 13, 9, 11, 17, 21, 11, 17, 33, 17, 11, 13, 19, 12, 15, 17, 21, 13, 23, 15, 21, 23, 21, 13, 13, 17, 27, 19, 25, 27, 19, 11, 15, 21, 19, 21, 23, 29, 17, 23, 17, 29, 15, 27, 23, 29, 31, 27, 19, 27, 23, 11, 29, 17, 23, 29, 23, 29, 17, 19, 29, 29, 23, 29, 33, 19, 29, 23, 21, 35, 21, 27, 27 (列表;图表;参考;;历史;文本;内部格式)
抵消
2,1
评论
由勒让德猜想(仍然开放)提出,对于n>0,在n^2和(n+1)^2之间总是有一个素数,并由Jack Laffan向作者提到。
链接
瓦茨拉夫·科特索维奇,n=2..10000时的n,a(n)表
埃里克·魏斯坦的数学世界,勒让德猜想
维基百科,勒讓德猜想
示例
a(3)=3,因为[9,10,11,12,13,14,15,16]中最长的连续素数序列是长度为三的序列14,15和16。
MAPLE公司
RunsOfOnes:=进程(L)
局部j,r,i,k;
j: =1:
r[j]:=L[1]:
对于i从2到nops(L)do
如果L[i]=L[i-1],则r[j]:=r[j],L[i];其他的
j: =j+1;
r[j]:=L[i];
fi;
od;
j;
[seq([r[k]],k=1..j)];
选择(有,%,1);
结束进程:
f: =程序(n)
如果isprime(n),则返回0;否则返回1;fi;
结束进程:
a: =程序(n)
局部i;
[序列(i,i=n^2..(n+1)^2)];
映射(f,%);
RunsOfOnes(%);
地图(nops,%);
最大值(op(%));
结束进程:
seq(a(n),n=2..100);
#第二个Maple项目:
a: =proc(n)局部i,maxsofar,scanmax;
maxsofar,扫描最大值:=0,0;
对于i从n^2到(n+1)^2 do
如果是质数(i)
则scanmax:=0
否则扫描最大值:=扫描最大值+1;
maxsofar:=最大值(扫描最大值,maxsofar)
fi(菲涅耳)
od;maxsofar(最大值)
结束时间:
seq(a(n),n=2..100)#阿洛伊斯·海因茨2017年4月20日
数学
表[s=0;smax=0;Do[If[PrimeQ[j],If[s>smax,smax=s];s=0,s++],{j,n^2,(n+1)^2}];如果[s>smax,smax=s];smax,{n,2100}](*瓦茨拉夫·科特索维奇,2017年4月20日*)
max[n_]:=max[Length/@Split[Select[Range[n^2,(n+1)^2],CompositeQ],#2-#1==1&]];
最大/@范围[2100](*伊万·伊纳基耶夫2017年4月21日*)
交叉参考
囊性纤维变性。A014085号(n^2和(n+1)^2之间的素数)。
关键词
非n
作者
W·埃德温·克拉克2017年4月12日
状态
已批准

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

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

上次修改时间:美国东部夏令时2024年6月15日19:43。包含373410个序列。(在oeis4上运行。)