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

Author

Paul D. Hanna, Apr 28 2006

Keywords

• sign

Links

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

Crossrefs

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

Programs

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 *)

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)}

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).