login
A066350
Bisection of A007059.
1
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
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
Sequence in context: A148783 A084205 A118099 * A375086 A148784 A148785
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Dec 19 2001
EXTENSIONS
More terms from Joshua Zucker, May 12 2006
STATUS
approved