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
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..500
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