login
A118483
Partial sums of primes that are not Chen primes (starting with 1).
0
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
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
KEYWORD
nonn
AUTHOR
Jani Melik, May 05 2006
STATUS
approved