A051356 Start with 0, run through primes >=5, adding if -1 mod 6, subtracting if +1 mod 6.

0, 5, -2, 9, -4, 13, -6, 17, 46, 15, -22, 19, -24, 23, 76, 135, 74, 7, 78, 5, -74, 9, 98, 1, 102, -1, 106, -3, 110, -17, 114, 251, 112, 261, 110, -47, -210, -43, 130, 309, 128, 319, 126, 323, 124, -87, -310, -83, -312, -79, 160, -81, 170, 427, 690

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Example

a(5) = 13 = 5-7+11-13+17

Mathematica

Accumulate[Join[{0}, If[Mod[#, 6]==1, -#, #]&/@Prime[Range[3, 60]]]] (* Harvey P. Dale, Jul 23 2012 *)

Crossrefs

Sequence in context: A318379 A065262 A198738 * A188933 A306648 A255655

Adjacent sequences: A051353 A051354 A051355 * A051357 A051358 A051359

Keyword

sign,easy

Author

Armand Turpel armandt(AT)unforgettable.com

Status

approved