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,3

Links

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

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 *)

Crossrefs

Cf. A007059, A066351.

Sequence in context: A148783 A084205 A118099 * A148784 A148785 A148786

Adjacent sequences: A066347 A066348 A066349 * A066351 A066352 A066353

Keyword

nonn,easy

Author

N. J. A. Sloane, Dec 19 2001

Extensions

More terms from Joshua Zucker, May 12 2006

Status

approved