The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A118482 Partial sums of Chen primes (starting with 1). 2
 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; text; internal format)
 OFFSET 0,2 LINKS Harvey P. Dale, Table of n, a(n) for n = 0..1000 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); MATHEMATICA Accumulate[Join[{1}, Select[Prime[Range[70]], PrimeOmega[#+2]<3&]]] (* Harvey P. Dale, May 26 2014 *) CROSSREFS Cf. A014284, A109611. Sequence in context: A178855 A095944 A014284 * A281689 A026905 A286272 Adjacent sequences:  A118479 A118480 A118481 * A118483 A118484 A118485 KEYWORD nonn AUTHOR Jani Melik, May 05 2006 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 18 10:56 EDT 2021. Contains 343087 sequences. (Running on oeis4.)