%I#27 2023年3月4日15:31:31
%S 1259136120272267263331373389405751536257655370137451,
%电话:79019907104991079910910910910919115791240114369150131532917377,
%电话:1790318251184271930922441240232505725226041266992811129017292070732933505136583
%N个素数是25个连续素数之和。
%C对于所有小于等于15的奇数,已经存在这样的序列。我选择了特定的点(在A215991-A216020中),这样通过引用这些序列中的一个特定的n项,可以计算出任意奇数x<100000的x素数和的n项的预期范围。
%H Syed Iddi Hasan,n的表,n=1..10000的a(n)</a>
%p选择(i素数,[seq(加法(ithprime(i+k),i=1..25),k=0..250)]);#_Muniru A Asiru_,2018年2月11日
%t选择[ListConvolve[表[1,25],Prime[范围[500]],PrimeQ](*_Jean-François Alcover_,2018年7月1日,在_Harvey P.Dale_*之后)
%t选择[Total/@Partition[Prime[Range[300]],25,1],PrimeQ](*哈维·P·戴尔,2023年3月4日*)
%o(PARI)
%o psumprm(m,n)={my(list=list(),s=sum(j=1,m,prime(j)),i=1);while(#list<n,s=s-prime(i)+prime(i+m);i++;if(isprime(s),listput(list,s)));Vec(list)}
%o psumprm(25,40)\\ Andrew Howroyd_,2018年2月11日
%o(GAP)P:=已筛选([1..10^4],IsPrime);;
%o过滤(列表([0..250],k->总和([1..25],i->P[i+k])),IsPrime);#_Muniru A Asiru_,2018年2月11日
%Y参见A034962、A034965、A082246、A082251、A127340、A127341、A161612、A215992、A215993、A215994、A215995、A215996、A215997、A215998、A215999、A216000、A216001、A216002、A216003、A216004、A216005、A216006、A216007、A216008、A216009、A216010、A216011、A216012、A216013、A216014、A216015、A216016、A216017、A216018、A216019、A2160 16020年。
%K非n
%O 1,1号机组
%A _Syed Iddi Hasan,2012年8月30日