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 A240994 #15 Sep 30 2014 16:30:47 %S A240994 10,21,44,75,104,157,230,283,372,529,602,739,938,1011,1292,1521,1521, %T A240994 1648,2031,2260,2409,2798,3261,3454,3813,4360,4599,5066,5889,6068 %N A240994 Partial sums of A086505. %e A240994 The second term is obtained by taking the trace of the matrix [[3,5,11],[3,7,13],[5,7,11]]. %p A240994 Primes:= select(isprime,{seq(2*i+1,i=1..10^5)}): %p A240994 T:= 3: %p A240994 for n from 2 to 100 do %p A240994 R:= Primes intersect map(`+`,Primes, -2*n); %p A240994 if nops(R) < n then break fi; %p A240994 T:= T + R[n]; %p A240994 A[n]:= T; %p A240994 od: %p A240994 seq(A[n],n=2..100); # _Robert Israel_, Aug 06 2014 %Y A240994 Cf. A086505. %K A240994 nonn %O A240994 2,1 %A A240994 _Samuel J. Erickson_, Aug 06 2014 %E A240994 Entry revised by _Robert Israel_, Aug 07 2014 and _N. J. A. Sloane_, Sep 30 2014