A095676 Row sums of A095675.

1, 5, 28, 179, 1291, 10358, 91337, 876289, 9070546, 100596161, 1188403063, 14881408616, 196696197075, 2734274453061, 39848045797116, 607129121193015, 9646995492421711, 159508268424031670, 2739019526280054917

Offset

0,2

Links

Table of n, a(n) for n=0..18.

Mathematica

a[0, 0] = 1; a[n_, 0] := a[n - 1, n - 1]; a[n_, k_] := a[n, k] = If[k < n + 1, a[n, k - 1] + a[n - 1, k - 1], 0]; p[n_, r_] := If[r <= n + 1, Binomial[n, r], 0]; am = Table[ a[n, r], {n, 0, 18}, {r, 0, 18}]; pm = Table[p[n, r], {n, 0, 18}, {r, 0, 18}]; t = am.pm; Plus @@@ t (* Robert G. Wilson v, Jul 12 2004 *)

Crossrefs

Sequence in context: A367889 A082031 A020081 * A324352 A006157 A179326

Adjacent sequences: A095673 A095674 A095675 * A095677 A095678 A095679

Keyword

nonn,easy

Author

N. J. A. Sloane, based on a suggestion from Gary W. Adamson, Jun 22 2004

Extensions

More terms from Robert G. Wilson v, Jul 13 2004

Status

approved