|
|
A348124
|
|
Number of compositions of n where the smallest part is smaller than the number of parts.
|
|
1
|
|
|
0, 1, 3, 6, 13, 28, 59, 122, 248, 501, 1009, 2028, 4070, 8159, 16343, 32717, 65472, 130991, 262041, 524157, 1048410, 2096943, 4194043, 8388285, 16776819, 33553946, 67108270, 134217002, 268434568, 536869825, 1073740493, 2147482019, 4294965305, 8589932164
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
b:= proc(n, s, c) option remember; `if`(s<c, ceil(2^(n-1)),
`if`(n=0, 0, add(b(n-j, min(j, s), c+1), j=1..n)))
end:
a:= n-> b(n$2, 0):
|
|
MATHEMATICA
|
b[n_, s_, c_] := b[n, s, c] = If[s < c, Ceiling[2^(n - 1)],
If[n == 0, 0, Sum[b[n - j, Min[j, s], c + 1], {j, 1, n}]]];
a[n_] := b[n, n, 0];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|