A110580 {a(4,n)}, where a(m,n) is as defined in sequence A110576.

1, 5, 16, 45, 132, 449, 1816, 8460, 43717, 244869, 1469094, 9375888, 63337464, 451011317, 3372983491, 26409145110, 215868629023, 1837579724641, 16254473067368, 149114870667176, 1416212525570460, 13902957827280263

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..570

Mathematica

a[0, 0] := 1; a[0, 1] := 1; a[0, n_] := a[0, n] = Sum[Binomial[2*n - k - 3, n - 2]*a[0, k], {k, 0, n - 1}]; a[1, 0] := 1; a[1, n_] := a[1, n] = a[1, n - 1] + a[0, n]; a[2, 0] := 1; a[2, n_] := a[2, n] = a[2, n - 1] + a[1, n]; a[3, 0] := 1; a[3, n_] := a[3, n] = a[3, n - 1] + a[2, n]; a[4, 0] := 1; a[4, n_] := a[4, n] = a[4, n - 1] + a[3, n]; Table[a[4, n], {n, 0, 50}] (* G. C. Greubel, Sep 01 2017 *)

Crossrefs

Cf. A110576, A110577, A110578, A110579.

Sequence in context: A369803 A275126 A071101 * A351283 A055552 A086750

Adjacent sequences: A110577 A110578 A110579 * A110581 A110582 A110583

Keyword

easy,nonn

Author

Leroy Quet, Jul 28 2005

Extensions

More terms from Ryan Propper, Sep 25 2005

Status

approved