|
| |
|
|
A051349
|
|
Sum of first n nonprimes.
|
|
21
| |
|
|
0, 1, 5, 11, 19, 28, 38, 50, 64, 79, 95, 113, 133, 154, 176, 200, 225, 251, 278, 306, 336, 368, 401, 435, 470, 506, 544, 583, 623, 665, 709, 754, 800, 848, 897, 947, 998, 1050, 1104, 1159, 1215, 1272, 1330, 1390, 1452, 1515, 1579, 1644, 1710, 1778, 1847, 1917
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| Partial sums of A141468 or A018252. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Mar 01 2009]
a(n) = the lexicographically earliest sequence with first differences as increasing sequence of composites A002808. Complement of A175970. See A175965, A175966, A175967, A014284, A175969, A175970. [From Jaroslav Krizek (jaroslav.krizek(AT)atlas.cz), Oct 31 2010]
|
|
|
LINKS
| Nathaniel Johnston, Table of n, a(n) for n = 0..10000
|
|
|
MAPLE
| ithnonprime := proc(n)local k: option remember: if(n=1)then return 1: fi: for k from procname(n-1)+1 do if(not isprime(k))then return k fi: od: end: A051349 := proc(n) option remember: local k: if(n<=1)then return n: fi: return ithnonprime(n)+procname(n-1): end: seq(A051349(n), n=0..51); # Nathaniel Johnston, May 25 2011
|
|
|
MATHEMATICA
| lst={}; s=0; Do[If[ !PrimeQ[n], s=s+n; AppendTo[lst, s]], {n, 0, 10^2}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 14 2008]
|
|
|
CROSSREFS
| Cf. A122998.
Sequence in context: A163120 A051350 A088638 * A048217 A132087 A089270
Adjacent sequences: A051346 A051347 A051348 * A051350 A051351 A051352
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Armand Turpel armandt(AT)unforgettable.com
|
| |
|
|
