%I#5 2012年3月30日18:58:12
%S 1,4,13,26,49,7812118826437049863880410121265153418542210,
%电话:25853020349740467553586068686868267613845695021060811807,
%电话:1303814433415864173991902422075922590245382652628719
%编号(1/2)*A206803。
%t s[k_]:=素数[k+1];t[1]=0;
%tp[n]:=总和[s[k],{k,1,n}];
%t c[n]:=n*s[n]-p[n]
%t[n]:=t[n-1]+(n-1)s[n]-p[n-1]
%t表[c[n],{n,2100}](*A185382*)
%t%/2(*A206802*)
%t压扁[表[t[n],{n,2,40}]](*A206803*)
%t%/2(*A206804*)
%Y参考A206803。
%K nonn公司
%氧2,2
%A_Clark Kimberling_,2012年2月13日
|