OFFSET
0,6
LINKS
EXAMPLE
M(0,x) = 1,
M(1,x) = x^2-x-1,
M(2,x) = x^4-2*x^3-5*x^2+6*x+4,
M(3,x) = x^6-3*x^5-12*x^4+29*x^3+57*x^2-72*x-46.
MAPLE
A213736_triangle := proc(n) local A, len, k, m, sk_poly;
len := 2*n-1; A := array(0..len, 0..len);
sk_poly := proc(n, x) local v, k;
add(`if`((k+1)mod 4 = 0, 0, (-1)^iquo(k+1, 4))*2^iquo(-k, 2)*
add((-1)^v*binomial(k, v)*(v+x+1)^n, v=0..k), k=0..n) end:
for m from 0 to len do A[m, 0] := sk_poly(m, x);
for k from m-1 by -1 to 0 do
A[k, m-k] := A[k+1, m-k-1] - A[k, m-k-1] od od;
seq(print(seq(coeff(A[k, k], x, 2*k-i), i=0..2*k)), k=0..n-1) end:
A213736_triangle(5);
CROSSREFS
KEYWORD
sign,tabf
AUTHOR
Peter Luschny, Jun 19 2012
STATUS
approved