OFFSET
0,2
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
C. Rivera, See also
FORMULA
a(n) = A051349(n+1) - 1. - Michel Marcus, Feb 16 2018
MAPLE
A053767 := proc(n)
add(A002808(i), i=1..n) ;
end proc: # R. J. Mathar, Oct 03 2011
ListTools[PartialSums](remove(isprime, [$2..1000])); # Robert Israel, Jan 09 2015
MATHEMATICA
lst={}; s=0; Do[If[ !PrimeQ[n], s=s+n; AppendTo[lst, s]], {n, 2, 10^2}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 14 2008 *)
Accumulate[Complement[Range[2, 100], Prime[Range[PrimePi[100]]]]] (* Harvey P. Dale, Dec 28 2010 *)
Accumulate[Select[Range[2, 100], ! PrimeQ[#] &]]
PROG
(Haskell)
a053767 n = a053767_list !! (n-1)
a053767_list = scanl1 (+) a002808_list -- Reinhard Zumkeller, Oct 03 2011
(PARI) lista(nn) = {my(s=0); forcomposite(n=0, nn, print1(s, ", "); s += n; ); } \\ Michel Marcus, Jan 09 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
G. L. Honaker, Jr., Mar 29 2000
EXTENSIONS
a(0)=0 prepended by Max Alekseyev, Feb 10 2018
STATUS
approved