OFFSET
1,1
COMMENTS
Partial sums of A039701. - Michel Marcus, Jan 21 2015
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = sum_{k=1..n} (prime(k) mod 3).
MATHEMATICA
s=0; lst={}; Do[p=Prime[n]; m=Mod[p, 3]; a=(p-m)/3; AppendTo[lst, s+=m], {n, 3*4!}]; lst (* Vladimir Joseph Stephan Orlovsky, May 24 2009 *)
Accumulate[Mod[Prime[Range[80]], 3]] (* Harvey P. Dale, Sep 17 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Joost de Winter, Aug 27 2006
STATUS
approved