login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A053767 Sum of first n composite numbers. 15
4, 10, 18, 27, 37, 49, 63, 78, 94, 112, 132, 153, 175, 199, 224, 250, 277, 305, 335, 367, 400, 434, 469, 505, 543, 582, 622, 664, 708, 753, 799, 847, 896, 946, 997, 1049, 1103, 1158, 1214, 1271, 1329, 1389, 1451, 1514, 1578, 1643, 1709, 1777, 1846, 1916, 1988 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

a(A196415(n)) = A036691(A196415(n)) / A141092(n). - Reinhard Zumkeller, Oct 03 2011

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

C. Rivera, See also

FORMULA

a(n) = A000217(A002808(n)) - A034387(A002808(n)) - 1 . - Robert Israel, Jan 09 2015

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) = {s = 0; forcomposite (n=0, nn, s += n; print1(s, ", "); ); } \\ Michel Marcus, Jan 09 2015

CROSSREFS

Cf. A002808.

First differences of A023539.

Sequence in context: A113804 A107372 A113420 * A225270 A073621 A048218

Adjacent sequences:  A053764 A053765 A053766 * A053768 A053769 A053770

KEYWORD

nonn

AUTHOR

G. L. Honaker, Jr., Mar 29 2000

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified July 23 22:27 EDT 2017. Contains 289716 sequences.