A110577 {a(1,n)}, where a(m,n) is defined in sequence A110576.

1, 2, 4, 11, 40, 172, 820, 4227, 23336, 137282, 857178, 5659496, 39372213, 287657495, 2200586044, 17579891124, 146309132849, 1265828289411, 11362930635404

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, A110578, 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]; Table[a[1, n], {n, 0, 50}] (* G. C. Greubel, Aug 31 2017 *)

Extensions

More terms from Ryan Propper, Sep 25 2005