|
|
A206803
|
|
Sum_{0<j<k<=n} P(k)-P(j), where P(j)=A065091(j) is the j-th odd prime.
|
|
5
|
|
|
2, 8, 26, 52, 98, 156, 242, 376, 528, 740, 996, 1276, 1608, 2024, 2530, 3068, 3708, 4420, 5170, 6040, 6994, 8080, 9350, 10716, 12132, 13652, 15226, 16912, 19004, 21216, 23614, 26076, 28868, 31728, 34798, 38084, 41518, 45180, 49076
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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 *)
Flatten[Table[t[n], {n, 2, 40}]] (* A206803 *)
|
|
PROG
|
(Sage) [sum([sum([nth_prime(k+1)-nth_prime(j+1) for j in range(1, k)]) for k in range(2, n+1)]) for n in range(2, 41)] # Danny Rorabaugh, Apr 18 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|