A024854 a(n) = s(1)*t(n) + s(2)*t(n-1) + ... + s(k)*t(n-k+1), where k = floor(n/2), s = (natural numbers), t = (natural numbers >= 3).

4, 5, 16, 19, 40, 46, 80, 90, 140, 155, 224, 245, 336, 364, 480, 516, 660, 705, 880, 935, 1144, 1210, 1456, 1534, 1820, 1911, 2240, 2345, 2720, 2840, 3264, 3400, 3876, 4029, 4560, 4731, 5320, 5510, 6160, 6370, 7084, 7315, 8096, 8349, 9200, 9476, 10400, 10700, 11700

Offset

2,1

Links

G. C. Greubel, Table of n, a(n) for n = 2..1000

Index entries for linear recurrences with constant coefficients, signature (1,3,-3,-3,3,1,-1).

Formula

a(n) = Sum_{i=1..floor(n/2)} i*(n-i+3) = -floor(n/2)*(floor(n/2)+1)*(2*floor(n/2)-3n-8)/6. - Wesley Ivan Hurt, Sep 20 2013

G.f. x^2*(4 + x - x^2) / ( (1+x)^3*(1-x)^4 ). - R. J. Mathar, Sep 25 2013

a(n) = 4*A058187(n-2) + A058187(n-3) - A058187(n-4). - R. J. Mathar, Sep 25 2013

a(n) = (4*n^3+21*n^2+14*n-9+3*(n^2+6*n+3)*(-1)^n)/48. - Luce ETIENNE, Nov 14 2014

E.g.f.: (1/24)*( x*(9 + 18*x + 2*x^2)*cosh(x) + (-9 + 30*x + 15*x^2 + 2*x^3)*sinh(x) ). - G. C. Greubel, Jul 13 2022

Maple

seq(sum(i*(k-i+3), i=1..floor(k/2)), k=2..70); # Wesley Ivan Hurt, Sep 20 2013

Mathematica

Table[-Floor[n/2] * (Floor[n/2] + 1) * (2 * Floor[n/2] - 3n - 8)/6, {n, 2, 100}] (* Wesley Ivan Hurt, Sep 20 2013 *)
CoefficientList[Series[- (- 4 - x + x^2)/((1 + x)^3 (x - 1)^4), {x, 0, 60}], x] (* Vincenzo Librandi, Oct 31 2014 *)

Prog

(Magma) [(4*n^3+21*n^2+14*n-9+3*(n^2+6*n+3)*(-1)^n)/48: n in [2..60]]; // Vincenzo Librandi, Oct 31 2014
(SageMath) [(4*n^3+21*n^2+14*n-9+3*(n^2+6*n+3)*(-1)^n)/48 for n in (2..60)] # G. C. Greubel, Jul 13 2022

Crossrefs

Cf. A023855, A023856, A023857, A024305, A058187.

Sequence in context: A000695 A081345 A137527 * A309759 A025617 A227855

Adjacent sequences: A024851 A024852 A024853 * A024855 A024856 A024857

Keyword

nonn,easy

Author

Clark Kimberling

Status

approved