A066350 Bisection of A007059.

0, 1, 3, 8, 24, 77, 256, 874, 3045, 10780, 38674, 140268, 513350, 1892875, 7023562, 26200182, 98182666, 369393466, 1394632365, 5281753216, 20058841004, 76370762838, 291436246116, 1114474774102, 4270050059100, 16389518073023, 63010289558056, 242614318886286

Offset: 0

Author

N. J. A. Sloane, Dec 19 2001

Keywords

• nonn
• easy

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..500

Crossrefs

Cf. A007059, A066351.

Programs

Maple

b:= proc(n, m) option remember; `if`(n=0, 1,
      `if`(m=0, add(b(n-j, j), j=1..n),
      add(b(n-j, min(n-j, m)), j=1..min(n, m))))
    end:
a:= n-> b(2*n-1, 0):
seq(a(n), n=0..40);  # Alois P. Heinz, Dec 19 2014

Mathematica

b[n_, m_] := b[n, m] = If[n == 0, 1, If[m == 0, Sum[b[n-j, j], {j, 1, n}], Sum[b[n-j, Min[n-j, m]], {j, 1, Min[n, m]}]]];
a[n_] := b[2n-1, 0];
a /@ Range[0, 40] (* Jean-François Alcover, Nov 17 2020, after Alois P. Heinz *)

Extensions

More terms from Joshua Zucker, May 12 2006