Basic hypergeometric series

Series[QPochhammer[q, q], {q, 0, 100}]
Series[\!\(<br> \*UnderoverscriptBox[\(\[Product]\), \(k = 1\), \(100\)]\((1 -<br>     q^k)\)\), {q, 0, 100}]
f[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 0\), \(100\)]\(PartitionsP[<br>     k] q^k\)\)
Series[1/QPochhammer[q, q], {q, 0, 100}]
Series[f[q], {q, 0, 100}]
d[n_] := DivisorSigma[1, n]
g[q_] := \!\(<br> \*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(100\)]\(d[k] q^k\)\)
Expand[f[q]*g[q]]

 

related items

• #