CoefficientList[ Sum[q^(n^2), {n,1,13}]^5, q]