|
| |
|
|
A053767
|
|
Sum of first n composite numbers.
|
|
10
| |
|
|
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; 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
|
|
|
MAPLE
| A053767 := proc(n)
add(A002808(i), i=1..n) ;
end proc: # R. J. Mathar, Oct 03 2011
|
|
|
MATHEMATICA
| lst={}; s=0; Do[If[ !PrimeQ[n], s=s+n; AppendTo[lst, s]], {n, 2, 10^2}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 14 2008]
Accumulate[Complement[Range[2, 100], Prime[Range[PrimePi[100]]]]] [From 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
|
|
|
CROSSREFS
| Cf. A002808.
First differences of A023539.
Sequence in context: A113804 A107372 A113420 * A073621 A048218 A172484
Adjacent sequences: A053764 A053765 A053766 * A053768 A053769 A053770
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| G. L. Honaker, Jr. (honak3r(AT)gmail.com), Mar 29 2000
|
| |
|
|
