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
Keywords
Programs
-
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 *)