|
Search: id:A116596
|
|
|
| A116596 |
|
Number of partitions of n having exactly 1 part that appears exactly once. |
|
+0
2
|
|
| 1, 1, 1, 2, 4, 4, 8, 8, 12, 16, 23, 24, 40, 45, 59, 72, 99, 108, 153, 171, 224, 263, 341, 377, 504, 567, 711, 821, 1035, 1153, 1467, 1648, 2028, 2317, 2841, 3171, 3923, 4403, 5308, 6014, 7250, 8095, 9778, 10949, 13018, 14672, 17400, 19405, 23061, 25769, 30243
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Column 1 of A116595.
|
|
FORMULA
|
G.f.=sum(x^j*(1-x^j)/(1-x^j+x^(2j)), j=1..infinity)product((1-x^j+x^(2j))/(1-x^j), j=1..infinity).
G.f. for number of partitions of n having exactly 1 part that appears exactly m times is sum(x^(m*j)*(1-x^j)/(1-x^(m*j)+x^((m+1)*j)), j=1..infinity)*product((1-x^(m*j)+x^((m+1)*j))/(1-x^j), j=1..infinity). - Vladeta Jovovic (vladeta(AT)eunet.rs), May 01 2006
|
|
EXAMPLE
|
a(5)=4 because we have [5],[3,1,1],[2,2,1] and [2,1,1,1] ([4,1],[3,2] and [1,1,1,1,1] do not qualify).
|
|
MAPLE
|
f:=sum(x^j*(1-x^j)/(1-x^j+x^(2*j)), j=1..75)*product((1-x^j+x^(2*j))/(1-x^j), j=1..75): fser:=series(f, x=0, 73): seq(coeff(fser, x^n), n=1..55);
|
|
CROSSREFS
|
Cf. A116595.
Sequence in context: A076347 A140513 A166632 this_sequence A048656 A107848 A029599
Adjacent sequences: A116593 A116594 A116595 this_sequence A116597 A116598 A116599
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Emeric Deutsch (deutsch(AT)duke.poly.edu), Feb 18 2006
|
|
|
Search completed in 0.002 seconds
|
