|
Search: id:A101203
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
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]
|
|
PROGRAM
|
(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.
Adjacent sequences: A101200 A101201 A101202 this_sequence A101204 A101205 A101206
Sequence in context: A130889 A058610 A143427 this_sequence A141244 A121849 A164930
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jan 23 2005
|
|
|
Search completed in 0.002 seconds
|
