|
|
A105200
|
|
Number of compositions of n such that the least part occurs with odd multiplicity.
|
|
3
|
|
|
1, 1, 4, 3, 13, 16, 41, 64, 154, 261, 560, 1049, 2176, 4169, 8474, 16614, 33477, 66178, 132776, 263969, 528519, 1053483, 2107772, 4207680, 8415341, 16812773, 33622527, 67203682, 134391649, 268686218, 537318189, 1074403625, 2148636672, 4296709932, 8592918851
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum(Sum(binomial(k, 2*l-1)*x^(2*k-2*l+1)/((1-x)^(k-2*l+1)*(1-x^k)), l=1..floor((k+1)/2)), k=1..infinity).
|
|
MAPLE
|
b:= proc(n, i, p) option remember; `if`(i<1, 0, add(
`if`(n=i*j, `if`(irem(j, 2)=1, (p+j)!/j!, 0),
b(n-i*j, i-1, p+j)/j!), j=0..n/i))
end:
a:= proc(n) option remember; b(n$2, 0) end:
|
|
MATHEMATICA
|
Rest[ CoefficientList[ Series[ Sum[ Binomial[k, 2l - 1] x^(2k - 2l + 1)/((1 - x)^(k - 2*l + 1)(1 - x^k)), {k, 34}, {l, Floor[(k + 1)/2]}], {x, 0, 34}], x]] (* Robert G. Wilson v, Apr 12 2005 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|