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