A118440 Row sums of triangle A118438.

1, 0, 4, 0, 48, 160, -256, 0, -1792, -7680, 16384, 0, 135168, 532480, -1048576, 0, -8323072, -33423360, 67108864, 0, 537919488, 2149580800, -4294967296, 0, -34342961152, -137405399040, 274877906944, 0, 2199291691008, 8796629893120, -17592186044416, 0, -140733193388032, -562941363486720

Offset

0,3

Links

Table of n, a(n) for n=0..33.

Index entries for linear recurrences with constant coefficients, signature (2, -4, 8, -64, 128, -256, 512).

Formula

G.f.: (1-2*x+8*x^2-16*x^3+128*x^4-96*x^5+128*x^6-256*x^7)/(1-2*x)/(1+4*x^2)/(1+64*x^4).

Mathematica

CoefficientList[Series[(1-2x+8x^2-16x^3+128x^4-96x^5+128x^6-256x^7)/ (1-2x)/(1+4x^2)/(1+64x^4), {x, 0, 50}], x] (* or *) Join[{1}, LinearRecurrence[ {2, -4, 8, -64, 128, -256, 512}, {0, 4, 0, 48, 160, -256, 0}, 50]]  (* Harvey P. Dale, Apr 30 2011 *)

Prog

(PARI) {a(n)=polcoeff((1-2*x+8*x^2-16*x^3+128*x^4-96*x^5+128*x^6-256*x^7)/(1-2*x)/(1+4*x^2)/(1+64*x^4+x*O(x^n)), n)}

Crossrefs

Cf. A118438 (triangle), A118439 (column 0); A118437 (row sums of inverse).

Sequence in context: A009371 A248952 A101502 * A247119 A296439 A228557

Adjacent sequences: A118437 A118438 A118439 * A118441 A118442 A118443

Keyword

sign

Author

Paul D. Hanna, Apr 28 2006

Status

approved