|
|
A191493
|
|
Binomial row sums of triangle A191490.
|
|
2
|
|
|
1, 2, 7, 36, 245, 2071, 20813, 241344, 3161473, 46056783, 737269244, 12845501191, 241719339485, 4881205089541, 105209993413879, 2409362123140160, 58389484394798549, 1492265790284314961, 40096619357257356256, 1129638216589178869291
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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[Sum[Binomial[n, k]f[n, k], {k, 0, n}], {n, 0, 100}]
|
|
PROG
|
(Maxima) P[0]:1$
P[n]:=(1+(n-1)*q)*P[n-1]+q^n$
makelist(sum(binomial(n, k)*coeff(expand(P[n]), q^k), k, 0, n), n, 0, 24);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|