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 A174439 #15 Oct 01 2017 09:18:29
%S A174439 1,2,4,8,16,31,58,105,184,314,523,853,1365,2149,3332,5097,7701,11505,
%T A174439 17009,24907,36147,52027,74304,105352,148355,207575,288673,399157,
%U A174439 548926,750996,1022400,1385374,1868813,2510181,3357862,4474187,5939186
%N A174439 Partial sums of A001523.
%C A174439 The subsequence of primes begins: 2, 31, 523, 853, 24907, 52027, 1868813, ...
%H A174439 Alois P. Heinz, <a href="/A174439/b174439.txt">Table of n, a(n) for n = 0..10000</a>
%F A174439 a(n) = Sum_{i=0..n} A001523(i).
%F A174439 a(n) ~ exp(2*Pi*sqrt(n/3))/(8*Pi*3^(1/4)*n^(3/4)). - _Vaclav Kotesovec_, Dec 13 2015
%t A174439 nmax = 41; A001523 = CoefficientList[Series[1 + Sum[(-1)^(k + 1)*x^(k*(k + 1)/2), {k, 1, nmax}] / QPochhammer[x]^2, {x, 0, nmax}], x]; s = 0; Table[s = s + A001523[[k]], {k, 1, nmax}] (* _Vaclav Kotesovec_, Dec 13 2015 *)
%Y A174439 Cf. A001523, A054250, A059618, A059623, A001522, A001524, A000569, A100505, A100506.
%K A174439 easy,nonn
%O A174439 0,2
%A A174439 _Jonathan Vos Post_, Mar 19 2010