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 A183012 #20 Jan 15 2019 23:42:51 %S A183012 23,71,119,262,358,740,932,1697,2248,3588,4690,7371,9312,13814,17959, %T A183012 25289,32406,45056,57015,77383,98043,129678,163451,214120,267217, %U A183012 344786,429842,547308,677897,856601,1054330,1320077 %N A183012 a(n) = 24*A138879(n) - A187219(n). %C A183012 Partial sums give the positive terms of A183011, the numerators of the Bruinier-Ono formula for the partition function. %H A183012 Omar E. Pol, <a href="http://www.polprimos.com/imagenespub/polpar02.jpg">Illustration of the seven regions of 5</a> %p A183012 A066186 := proc(n) n*combinat[numbpart](n) ; end proc: %p A183012 A138879 := proc(n) A066186(n)-A066186(n-1) ; end proc: %p A183012 A002865 := proc(n) if n = 0 then 1; else combinat[numbpart](n)-combinat[numbpart](n-1) ; end if; end proc: %p A183012 A183012 := proc(n) if n = 1 then 23; else 24*A138879(n)-A002865(n) ; end if; end proc: %p A183012 seq(A183012(n),n=1..80) ; # _R. J. Mathar_, Jan 27 2011 %Y A183012 Cf. A000041, A002865, A135010, A138879, A183010, A183011, A186114, A206437. %K A183012 nonn,easy %O A183012 1,1 %A A183012 _Omar E. Pol_, Jan 22 2011