|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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):
|
|
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];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|