|
%I #21 Sep 14 2016 17:32:06
%S 1,3,9,13,23,29,43,67,76,106,128,140,166,208,253,269,320,356,375,435,
%T 477,543,635,683,708,760,787,843,1046,1106,1199,1231,1396,1430,1535,
%U 1643,1717,1831,1948,1988,2193,2235,2321,2365,2635,2911,3005
%N a(n) = (1/2)*A185382(n).
%C See A185382.
%t s[k_] := Prime[k + 1]; t[1] = 0;
%t p[n_] := Sum[s[k], {k, 1, n}];
%t c[n_] := n*s[n] - p[n]
%t t[n_] := t[n - 1] + (n - 1) s[n] - p[n - 1]
%t Table[c[n], {n, 2, 100}] (* A185382 *)
%t %/2 (* A206802 *)
%t Flatten[Table[t[n], {n, 2, 40}]] (* A206803 *)
%t %/2 (* A206804 *)
%t Table[Sum[Prime[n + 1] - Prime[j + 1], {j, n - 1}]/2, {n, 2, 48}] (* _Michael De Vlieger_, Sep 13 2016 *)
%Y Cf. A185382.
%K nonn
%O 2,2
%A _Clark Kimberling_, Feb 13 2012
|
