A191493 Binomial row sums of triangle A191490.

1, 2, 7, 36, 245, 2071, 20813, 241344, 3161473, 46056783, 737269244, 12845501191, 241719339485, 4881205089541, 105209993413879, 2409362123140160, 58389484394798549, 1492265790284314961, 40096619357257356256, 1129638216589178869291

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..64

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

Cf. A191490.

Sequence in context: A381304 A201197 A185754 * A095793 A029768 A180271

Adjacent sequences: A191490 A191491 A191492 * A191494 A191495 A191496

Keyword

nonn

Author

Emanuele Munarini, Jun 03 2011

Status

approved