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 A152897 #12 Jul 14 2015 09:28:30
%S A152897 0,3,18,73,256,844,2709,8596,27146,85560,269464,848400,2670859,
%T A152897 8407805,26467163,83316232,262271397,825604226,2598919135,8181135469,
%U A152897 25753388928,81069068693,255197243733,803335158081,2528817970143
%N A152897 Partial sums of A152896.
%H A152897 <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (7,-18,23,-16,6,-1).
%F A152897 a(n)=A124820(n)-A000217(n+1). G.f.: x^2(3-3x+x^2)/((1-x)^3*(1-4x+3x^2-x^3)). [From _R. J. Mathar_, Dec 15 2008]
%F A152897 a(1)=0, a(2)=3, a(3)=18, a(4)=73, a(5)=256, a(6)=844, a(n)=7*a(n-1)- 18*a(n-2)+ 23*a(n-3)-16*a(n-4)+6*a(n-5)-a (n-6). - _Harvey P. Dale_, Feb 07 2015
%t A152897 lst={};a=b=c=s=0;Do[c+=n+a;b+=n+c;a+=n+b;s+=a;AppendTo[lst,s],{n,0,2*4!}];lst
%t A152897 Rest[CoefficientList[Series[x^2(3-3x+x^2)/((1-x)^3(1-4x+3x^2-x^3)),{x,0,40}],x]] (* _Harvey P. Dale_, Mar 11 2011 *)
%t A152897 LinearRecurrence[{7,-18,23,-16,6,-1},{0,3,18,73,256,844},30] (* _Harvey P. Dale_, Feb 07 2015 *)
%Y A152897 Cf. A152891, A152895, A152896.
%K A152897 nonn
%O A152897 1,2
%A A152897 _Vladimir Joseph Stephan Orlovsky_, Dec 14 2008