OFFSET
0,4
FORMULA
MATHEMATICA
qq[n_] := CoefficientList[Series[Sum[x^Binomial[k+1, 2]y^k/Product[1-x^i, {i, 1, k}], {k, 0, n}], {x, 0, n}, {y, 0, n}], {x, y}]
Total[Transpose[Map[#^2 &, qq[100]]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Emanuele Munarini, Feb 28 2014
STATUS
approved