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