|
Search: id:A092484
|
|
|
| A092484 |
|
Expansion of Product_{m=1..inf} (1+m^2*q^m). |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
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)
|
|
PROGRAM
|
(PARI)
|
|
CROSSREFS
|
Cf. A022629.
Sequence in context: A001741 A154820 A056708 this_sequence A091823 A024834 A143867
Adjacent sequences: A092481 A092482 A092483 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
