|
|
A118440
|
|
Row sums of triangle A118438.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|