A233809 a(n) = Sum_{k=1..n} prime(k) * s(k), where s(k) = (-1)^(floor(k/2)).

2, -1, -6, 1, 12, -1, -18, 1, 24, -5, -36, 1, 42, -1, -48, 5, 64, 3, -64, 7, 80, 1, -82, 7, 104, 3, -100, 7, 116, 3, -124, 7, 144, 5, -144, 7, 164, 1, -166, 7, 186, 5, -186, 7, 204, 5, -206, 17, 244, 15, -218, 21, 262, 11, -246, 17, 286, 15, -262

Offset

1,1

Comments

s(k) starts +1, -1, -1, +1, +1, -1, -1, ...

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..2000

Example

a(6) = +2 - 3 - 5 + 7 + 11 - 13 = -1.

Mathematica

f[n_] := Sum[(-1)^Floor[k/2]*Prime[k], {k, n}]; Array[f, 60] (* Robert G. Wilson v, Aug 06 2017 *)

Prog

(PARI)
s(k) = (-1)^(floor(k/2));
a(n) = sum(k=1, n, s(k)*prime(k));
\\ Joerg Arndt, Aug 06 2017
(Magma) [&+[NthPrime(k)*(-1)^(Floor(k/2)): k in [1..n]]: n in [1..60]]; // Vincenzo Librandi, Aug 07 2017

Crossrefs

Cf. A008347, A233399.

Cf. A130642 (a(n) = -1), A130643 (a(n) = 1). - Michel Marcus, Aug 06 2017

Sequence in context: A267354 A139625 A053785 * A207536 A060173 A059344

Adjacent sequences: A233806 A233807 A233808 * A233810 A233811 A233812

Keyword

sign,easy,less

Author

Jon Perry, Dec 16 2013

Extensions

Name corrected by Joerg Arndt, Aug 06 2017

Status

approved