|
|
A053767
|
|
Sum of first n composite numbers.
|
|
20
|
|
|
0, 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
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
ListTools[PartialSums](remove(isprime, [$2..1000])); # Robert Israel, Jan 09 2015
|
|
MATHEMATICA
|
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)
(PARI) lista(nn) = {my(s=0); forcomposite(n=0, nn, print1(s, ", "); s += n; ); } \\ Michel Marcus, Jan 09 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|