A206802 - OEIS

%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