A206802 a(n) = (1/2)*A185382(n).

1, 3, 9, 13, 23, 29, 43, 67, 76, 106, 128, 140, 166, 208, 253, 269, 320, 356, 375, 435, 477, 543, 635, 683, 708, 760, 787, 843, 1046, 1106, 1199, 1231, 1396, 1430, 1535, 1643, 1717, 1831, 1948, 1988, 2193, 2235, 2321, 2365, 2635, 2911, 3005

Offset: 2

Author

Clark Kimberling, Feb 13 2012

Keywords

• nonn

Comments

See A185382.

Crossrefs

Cf. A185382.

Programs

Mathematica

s[k_] := Prime[k + 1]; t[1] = 0;
p[n_] := Sum[s[k], {k, 1, n}];
c[n_] := n*s[n] - p[n]
t[n_] := t[n - 1] + (n - 1) s[n] - p[n - 1]
Table[c[n], {n, 2, 100}]  (* A185382 *)
%/2  (* A206802 *)
Flatten[Table[t[n], {n, 2, 40}]]  (*  A206803 *)
%/2  (* A206804 *)
Table[Sum[Prime[n + 1] - Prime[j + 1], {j, n - 1}]/2, {n, 2, 48}] (* Michael De Vlieger, Sep 13 2016 *)