|
| |
|
|
A118482
|
|
Partial sums of Chen primes (starting with 1).
|
|
1
| |
|
|
1, 3, 6, 11, 18, 29, 42, 59, 78, 101, 130, 161, 198, 239, 286, 339, 398, 465, 536, 619, 708, 809, 916, 1025, 1138, 1265, 1396, 1533, 1672, 1821, 1978, 2145, 2324, 2505, 2696, 2893, 3092, 3303, 3530, 3763, 4002, 4253, 4510, 4773, 5042, 5323, 5616, 5923
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
MAPLE
| ischenprime:=proc(n); if (isprime(n) = 'true') then if (isprime(n+2) = 'true' or numtheory[bigomega](n+2) = 2) then RETURN('true') else RETURN('false') fi fi end: ts_partsum_chenprime:=proc(n) local i, ans, tren; ans:=1: tren:=1: for i from 1 to n do if (ischenprime(i)='true') then tren := tren+i: ans:=[op(ans), tren]: fi od; RETURN(ans) end: ts_partsum_chenprime(500);
|
|
|
CROSSREFS
| Cf. A014284, A109611.
Sequence in context: A178855 A095944 A014284 * A026905 A066778 A147079
Adjacent sequences: A118479 A118480 A118481 * A118483 A118484 A118485
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jani Melik (jani_melik(AT)hotmail.com), May 05 2006
|
| |
|
|
