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