A222410 Partial sums of A008534, or crystal ball sequence for {A_6}* lattice.

1, 15, 113, 575, 2171, 6581, 16955, 38613, 79885, 153091, 275661, 471395, 771863, 1217945, 1861511, 2767241, 4014585, 5699863, 7938505, 10867431, 14647571, 19466525, 25541363, 33121565, 42492101, 53976651

Offset

0,2

Links

Bruno Berselli, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (7,-21,35,-35,21,-7,1).

Formula

G.f.: (1+8*x+29*x^2+64*x^3+29*x^4+8*x^5+x^6)/(1-x)^7. [Bruno Berselli, Feb 28 2013]

a(n) = 1+(7/36)*n*(n+1)*(n^4+2*n^3+8*n^2+7*n+18). [Bruno Berselli, Feb 28 2013]

Mathematica

LinearRecurrence[{7, -21, 35, -35, 21, -7, 1}, {1, 15, 113, 575, 2171, 6581, 16955}, 26] (* Bruno Berselli, Feb 28 2013 *)

Prog

(Magma) /* By definition: */ A008534:=func<m | IsZero(m) select 1 else (7/6)*m*(m^2+2)*(m^2+3)>; [&+[A008534(i): i in [0..n]]: n in [0..25]]; // Bruno Berselli, Feb 28 2013

Crossrefs

Cf. A008534.

Sequence in context: A370763 A295384 A110822 * A001849 A115150 A115138

Adjacent sequences: A222407 A222408 A222409 * A222411 A222412 A222413

Keyword

nonn,easy

Author

N. J. A. Sloane, Feb 23 2013

Status

approved