This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A118482 #6 May 26 2014 08:15:12
%S A118482 1,3,6,11,18,29,42,59,78,101,130,161,198,239,286,339,398,465,536,619,
%T A118482 708,809,916,1025,1138,1265,1396,1533,1672,1821,1978,2145,2324,2505,
%U A118482 2696,2893,3092,3303,3530,3763,4002,4253,4510,4773,5042,5323,5616,5923
%N A118482 Partial sums of Chen primes (starting with 1).
%H A118482 Harvey P. Dale, <a href="/A118482/b118482.txt">Table of n, a(n) for n = 0..1000</a>
%p A118482 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);
%t A118482 Accumulate[Join[{1},Select[Prime[Range[70]],PrimeOmega[#+2]<3&]]] (* _Harvey P. Dale_, May 26 2014 *)
%Y A118482 Cf. A014284, A109611.
%K A118482 nonn
%O A118482 0,2
%A A118482 _Jani Melik_, May 05 2006