OFFSET
0,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
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_chenprime:=proc(n) local i, ans, tren; ans:=1: tren:=1: for i from 1 to n do if (ischenprime(i)='true') then tren := tren+i: ans:=[op(ans), tren]: fi od; RETURN(ans) end: ts_partsum_chenprime(500);
MATHEMATICA
Accumulate[Join[{1}, Select[Prime[Range[70]], PrimeOmega[#+2]<3&]]] (* Harvey P. Dale, May 26 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jani Melik, May 05 2006
STATUS
approved