%I #4 Dec 16 2012 12:37:35
%S 1,44,105,178,257,354,457,608,771,944,1137,1360,1589,1830,2101,2378,
%T 2661,2974,3305,3654,4021,4394,4777,5174,5595,6028,6467,6924,7387,
%U 7910,8457,9050,9651,10258,10871,11490,12133,12794,13467,14158,14867,15594
%N Partial sums of primes that are not Chen primes (starting with 1).
%p 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);
%t Accumulate[Join[{1},Select[Prime[Range[200]],PrimeOmega[#+2]>2&]]] (* _Harvey P. Dale_, Dec 14 2012 *)
%Y Cf. A014284, A102540, A109611.
%K nonn
%O 0,2
%A _Jani Melik_, May 05 2006
|