|
| |
|
|
A092484
|
|
Expansion of Product_{m=1..inf} (1+m^2*q^m).
|
|
0
| |
|
|
1, 1, 4, 13, 25, 77, 161, 393, 726, 2010, 3850, 7874, 16791, 31627, 69695, 139560, 255997, 482277, 986021, 1716430, 3544299, 6507128, 11887340, 21137849, 38636535, 70598032, 123697772, 233003286, 412142276, 711896765, 1252360770
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| Sum of squares of products of terms in all partitions of n into distinct parts.
|
|
|
EXAMPLE
| The partitions of 6 into distinct parts are 6, 1+5, 2+4, 1+2+3, the corresponding squares of products are 36,25,64,36 and their sum is a(6) = 161.
|
|
|
MATHEMATICA
| Take[ CoefficientList[ Expand[ Product[1 + m^2*q^m, {m, 100}]], q], 31] (from Robert G. Wilson v Apr 05 2005)
|
|
|
PROG
| (PARI)
|
|
|
CROSSREFS
| Cf. A022629.
Sequence in context: A001741 A154820 A056708 * A091823 A024834 A143867
Adjacent sequences: A092481 A092482 A092483 * A092485 A092486 A092487
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jon Perry (perry(AT)globalnet.co.uk), Apr 04 2004
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 05 2004
|
| |
|
|
