|
| |
|
|
A101203
|
|
Sum of nonprimes <= n.
|
|
1
| |
|
|
0, 1, 1, 1, 5, 5, 11, 11, 19, 28, 38, 38, 50, 50, 64, 79, 95, 95, 113, 113, 133, 154, 176, 176, 200, 225, 251, 278, 306, 306, 336, 336, 368, 401, 435, 470, 506, 506, 544, 583, 623, 623, 665, 665, 709, 754, 800, 800, 848, 897, 947, 998, 1050, 1050, 1104, 1159, 1215
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,5
|
|
|
COMMENTS
| a(n) = A000217(n) - A034387(n) = A101256(n) + 1.
|
|
|
MATHEMATICA
| s=0; lst={}; Do[If[ !PrimeQ[n], s+=n]; AppendTo[lst, s], {n, 0, 5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 13 2009]
|
|
|
PROG
| (PARI) g(n, m) = s=0; for(x=0, n, if(isprime(x), s+=m, s+=x); print1(s", ")) - Cino Hilliard (hillcino368(AT)gmail.com), Feb 04 2006
|
|
|
CROSSREFS
| Cf. A062298, A018252.
Sequence in context: A058610 A143427 A168300 * A141244 A121849 A164930
Adjacent sequences: A101200 A101201 A101202 * A101204 A101205 A101206
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jan 23 2005
|
| |
|
|
