|
抵消
|
1,1
|
|
评论
|
|
|
链接
|
|
|
例子
|
2+3+5+...+3833 = 3847+...+5557,因此3833在序列中。
|
|
数学
|
a[m_]:=模块[{pLst,cumsum,p,q,k,target,idx},pLst=素数[Range[PrimePi[m]]];cumsum=累计[pLst];对={};对于[k=1,k<=长度[pLst],k++,p=pLst[[k]];目标=2*累计值[[k]];idx=第一位置[Drop[cumsum,k],target];如果[idx=!=Missing[“NotFound”],q=pLst[[k+First[idx]]];如果[q>p,AppendTo[pairs,p];]]];对];a[10000](*罗伯特·P·麦肯2023年8月25日*)
|
|
黄体脂酮素
|
(PARI)p=2;s=2;q=3;t=3;while(p<512345678900,而s<=t,p=下一素数(p+1);s=s+p;t=t-p);如果(s==t,打印1(p,“,”),);而(t<s,q=下一素数(q+1);t=t+q);如果(s==t,打印1(p,“,”),)
|
|
交叉参考
|
|
|
关键词
|
更多,非n,布雷夫
|
|
作者
|
|
|
扩展
|
Adam M.Kalman(mocha(AT)clarityconnect.com),2005年6月16日提供的更好的定义
|
|
状态
|
已批准
|