|
|
|
|
0, 0, 0, 10, 2574, 748616, 282846568, 141482705378, 93129791442534, 79703248816409088, 87547852413089111888, 121899005847224540133690, 212656111085108159911203710, 459737640779469178164281972792, 1218867518038879445116138285206008, 3923403293626677106527196012373423122
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
MAPLE
|
CL := (f, x) -> PolynomialTools:-CoefficientList(f, x):
P := proc(n) option remember; if n = 0 then return 1 fi;
add(binomial(3*n, 3*k+3)*P(n-k-1)*x, k=0..n-1) end:
Q := proc(n) option remember; if n = 0 then return 1 fi;
add(binomial(3*n-1, 3*k)*Q(k)*Q(n-1-k), k=0..n-1) end:
Q(n) - add(CL(P(n), x)[k+1]/k!, k=0..n) end:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|