%I#8 2022年8月8日15:54:44
%S 3,6,11,72,42,47,62295180259297327444626650131510591532,
%电话:4052234437323861880572344754281042311424599983417200,
%电话:10229197242524815927307654267328593224554505234422744390290408971547350
%N素数间隙A001223序列中2n第二次出现的位置;如果2n没有出现至少两次,a(n)=-1。
%C素数间隙(A001223)是连续素数之间的差异。它们开始于:1,2,2,4,2,4,6。。。
%t nn=1000;
%t gaps=差异[Array[Prime,nn]];
%t mnrm[s_]:=如果[Min@@s==1,mnrm[DeleteCase[s-1,0]+1,0];
%t表格[位置[gaps,2*n][[2,1]],{n,mnrm[Select[Range[nn],Length[Position[gapss,2*#]]>=2&]]}]
%Y 2n的第一个(而不是第二个)外观的位置是A038664。
%A356222的Y列k=2。
%Y 2n第n次出现的位置为A356223。
%Y A001223列出了主要差距,缩小了A028334。
%Y A073491列出了具有无间隙质数指数的数字。
%Y A274121计算了之前出现的第n个素数差距。
%Y A356226给出了素数指数的最大无间隙区间的长度。
%Y参见A029709、A066205、A137921、A193829、A287170、A328335、A328457、A356224、A356225。
%K nonn公司
%O 1,1
%A _Gus Wiseman_,2022年8月2日
|