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

1, 3, 7, 18, 58, 230, 1050, 5277, 28613, 165895, 1023073, 6682569, 46054782, 333712277, 2534298321, 20114189445, 166423322294, 1432251611705, 12795182247109, 118443504257081, 1134237257303476, 11219647646806519

Offset: 0

Author

Leroy Quet, Jul 28 2005

Keywords

• easy
• nonn

Links

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

Crossrefs

Cf. A110576, A110577, A110579, A110580.

Programs

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]; Table[a[2, n], {n, 0, 50}] (* G. C. Greubel, Sep 01 2017 *)

Extensions

More terms from Ryan Propper, Sep 25 2005