%我#14 2016年12月18日01:37:02
%S 1,3,6,4,10,6,14,8,18,12,23,15,29,17,33,21,40,24,45,28,49,31,55,35,63,
%电话:40,67,42,71,44,81,52,87,55,94,60,99,65105,69112,72119,77123,79,
%电话:131,90140,92144,96149101158106165109170113174118187126191
%N a(N)=2+和{x=N.素数(N)}(-x*(-1)^x)。
%H G.C.Greubel,n表,n=1..1000时的a(n)</a>
%e a(1)=2+1-2=1;
%e a(2)=2-2+3=3;
%e a(3)=2+3-4+5=6;
%e a(4)=2-4+5-6+7=4;
%e a(5)=2+5-6+7-8+9-10+11=10。
%p A163294:=程序(n)2+添加(-j*(-1)^j,j=无首字母(n));结束:序列(A163294(n),n=1..120);#_R.J.Mathar,2009年10月10日
%t表[2+总和[k*(-1)^(k+1),{k,n,素数[n]}],{n,1100}](*_G.C.Greubel_,2016年12月17日*)
%o(PARI)代表(n=1,50,打印1(2+总和(k=n,质数(n),k*(-1)^(k+1)),“,”))\\_G.C.格鲁贝尔,2016年12月17日
%Y参考A000027、A000040。
%K nonn,更少
%O 1,2号机组
%A _Juri-Stepan Gerasimov,2009年7月24日
%E修正人:Juri-Stepan Gerasimov,2009年7月26日
%E由N.J.A.Sloane编辑(但未检查),2009年7月27日
%E 2009年10月10日,R.J.Mathar修正了大约50%的条目
|