OFFSET
1,3
LINKS
Bill McEachen, Table of n, a(n) for n = 1..20000
EXAMPLE
2-3=-1, 2+3-5=0, 2+3+5-7=3,..
MATHEMATICA
Clear[lst, n, a, b]; a=0; lst={}; Do[a+=Prime[n]; b=a-Prime[n+1]; AppendTo[lst, b], {n, 5!}]; lst
Module[{nn=60, prs}, prs=Prime[Range[nn]]; Accumulate[Take[prs, nn-1]]- Take[ prs, {2, nn}]] (* Harvey P. Dale, Oct 12 2015 *)
PROG
(PARI) A166448()={ summ=0; for (n=1, 500, p=prime(n); summ+=p;
write("b166448.txt", n, " ", (summ-prime(n+1)) )); \\end FOR }
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 13 2009
STATUS
approved