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

%I #4 Jul 23 2012 14:44:31

%S 0,5,-2,9,-4,13,-6,17,46,15,-22,19,-24,23,76,135,74,7,78,5,-74,9,98,1,

%T 102,-1,106,-3,110,-17,114,251,112,261,110,-47,-210,-43,130,309,128,

%U 319,126,323,124,-87,-310,-83,-312,-79,160,-81,170,427,690

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

%H Harvey P. Dale, <a href="/A051356/b051356.txt">Table of n, a(n) for n = 0..1000</a>

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

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

%K sign,easy

%O 0,2

%A Armand Turpel armandt(AT)unforgettable.com