%I#15 2015年10月23日13:47:34
%电话:2181024582409263176027577307716102399399458292586172616042
%N对N进行编号,使前N个素数之和(A007504)的小数部分除以N等于1/2。
%C灵感来自A075465。
%C无其他条款<10^9。
%C所有条款均为偶数_Charles R Greathouse IV,2015年10月9日
%e a(1)=2,因为A007504(2)=5,5/2有2的一半的余数,即1。
%e a(2)=1810,因为A007504(1810)=13150555和13150555/1810=14531/2。
%t p=2;k=s=0;lst={};而[k<100000001,s=s+p;如果[2Mod[s,++k]==k,则附加到[lst,k];打印[k]];p=NextPrime@p;k++]
%o(PARI)n=s=0;forprime(p=2,,s+=p;n++;if(n%2==0&s%n==n/2,print1(n“,”))\\_Charles R Greathouse IV_,2015年10月9日
%Y参考A007504、A045345、A075465。
%K nonn,更多,难
%O 1,1
%A _Robert G.Wilson v_,2015年10月9日
|