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 A152895 #12 Apr 25 2023 08:02:48 %S A152895 0,2,11,40,123,349,951,2539,6710,17645,46290,121302,317706,831920, %T A152895 2178173,5702734,14930181,39087979,102333945,267914065,701408480, %U A152895 1836311627,4807526676,12586268700,32951279748,86267570894,225851433311 %N A152895 Partial sums of A152891. %H A152895 <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (6,-13,13,-6,1). %F A152895 From _R. J. Mathar_, Jan 08 2009: (Start) %F A152895 G.f.: x^2*(2-x)/((1-3x+x^2)*(1-x)^3). %F A152895 a(n) = A001906(n+1)-A000217(n+1). (End) %F A152895 a(1)=0, a(2)=2, a(3)=11, a(4)=40, a(5)=123, a(n)=6*a(n-1)-13*a(n-2)+ 13*a(n-3)- 6*a(n-4)+a(n-5). - _Harvey P. Dale_, Mar 26 2015 %t A152895 lst={};a=b=s=0;Do[b+=n+a;a+=n+b;s+=a;AppendTo[lst,s],{n,0,2*4!}];lst %t A152895 Accumulate[LinearRecurrence[{5,-8,5,-1},{0,2,9,29},30]] (* or *) LinearRecurrence[{6,-13,13,-6,1},{0,2,11,40,123},30] (* _Harvey P. Dale_, Mar 26 2015 *) %Y A152895 Cf. A000217, A001906, A152891. %K A152895 nonn %O A152895 1,2 %A A152895 _Vladimir Joseph Stephan Orlovsky_, Dec 14 2008