|
|
A191492
|
|
Central coefficients of triangle A191490.
|
|
2
|
|
|
1, 2, 18, 325, 9050, 342004, 16332659, 942562092, 63762184160, 4945947976997, 432648272729266, 42126940392610000, 4518312124929961241, 529235540464230162094, 67213443963719684144890, 9199173104526838608066833
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[n_, k_] := f[n, k] = f[n - 1, k] + (n - 1)f[n - 1, k - 1] + If[n == k, 1, 0]
f[_, 0] = 1;
f[0, _] = 0;
Table[f[2n, n], {n, 0, 100}]
|
|
PROG
|
(Maxima) P[0]:1$
P[n]:=(1+(n-1)*q)*P[n-1]+q^n$
makelist(coeff(expand(P[2*n]), q^n), n, 0, 12);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|