A118483 Partial sums of primes that are not Chen primes (starting with 1).

1, 44, 105, 178, 257, 354, 457, 608, 771, 944, 1137, 1360, 1589, 1830, 2101, 2378, 2661, 2974, 3305, 3654, 4021, 4394, 4777, 5174, 5595, 6028, 6467, 6924, 7387, 7910, 8457, 9050, 9651, 10258, 10871, 11490, 12133, 12794, 13467, 14158, 14867, 15594

Offset

0,2

Links

Table of n, a(n) for n=0..41.

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_notchenprime:=proc(n) local i, ans, tren; ans:=1: tren:=1: for i from 1 to n do if (ischenprime(i)='false') then tren := tren+i: ans:=[op(ans), tren]: fi od; RETURN(ans) end: ts_partsum_notchenprime(1000);

Mathematica

Accumulate[Join[{1}, Select[Prime[Range[200]], PrimeOmega[#+2]>2&]]] (* Harvey P. Dale, Dec 14 2012 *)

Crossrefs

Cf. A014284, A102540, A109611.

Sequence in context: A050944 A332590 A187933 * A044231 A044612 A258555

Adjacent sequences: A118480 A118481 A118482 * A118484 A118485 A118486

Keyword

nonn

Author

Jani Melik, May 05 2006

Status

approved