login
Partial sums of A084570.
1

%I #6 Jun 13 2015 00:51:05

%S 1,3,9,21,44,82,142,230,355,525,751,1043,1414,1876,2444,3132,3957,

%T 4935,6085,7425,8976,10758,12794,15106,17719,20657,23947,27615,31690,

%U 36200,41176,46648,52649,59211,66369,74157,82612,91770,101670,112350,123851

%N Partial sums of A084570.

%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (4, -5, 0, 5, -4, 1).

%F a(n)=(-1)^n/8 + (n^4+6n^3+17n^2+30n+21)/24; a(n)=sum(sum(sum(i+(-1)^i, i, 0, j), j, 0, k), k, 0, n).

%t Accumulate[LinearRecurrence[{3,-2,-2,3,-1},{1,2,6,12,23},50]] (* or *) LinearRecurrence[{4,-5,0,5,-4,1},{1,3,9,21,44,82},50] (* _Harvey P. Dale_, Nov 12 2014 *)

%K easy,nonn

%O 0,2

%A _Paul Barry_, May 31 2003