%I#9 2013年12月5日19:56:16
%S 1,2,2,3,3,2,6,3,2,4,7,3,8,6,2,3,6,9,6,14,19,11,4,19,4,13,3,10,13,
%电话:15,4,11,9,2,5,26,19,52,21,20,63,4,19,17,6,29,19,3,5,51,14,15,7,12,
%U 44,34,7,21,32,3,22,10,19,7,20,4,22,4,17,35,47,40,14,5,14,36,39,16
%第N个部分积+1是素数,其中a(N)>1表示N>1。
%C除第一项外,与A036012相同_David Wasserman,2004年12月22日
%e1+1=2,1*2+1=3,1x2*2+1=5等都是素数。
%t a[1]=p=1;a[n_]:=a[n]=捕捉[For[k=2,True,k++,If[PrimeQ[p*k+1],p=p*k;投掷[k]]];表[a[n],{n,1,82}](*Jean-François Alcover_,2012年5月14日*)
%Y参考A084402。
%K nonn公司
%O 1,2号机组
%A _Amarnath Murthy,2003年5月31日
%E 2004年12月22日来自_David Wasserman的更多条款
|