| DATA
|
1, 0, 2, 0, 4, 5, 8, 10, 24, 20, 73, 51, 146, 142, 306, 409, 731, 835, 1662, 1828, 3969, 4251, 8256, 9525, 17814, 22565, 38629, 47424, 82916, 101387, 185271, 218421, 386140, 468783, 806005, 1040428, 1696283, 2160026, 3567221, 4498026, 7683250, 9446666
|
| MATHEMATICA
|
nmax = 40; CoefficientList[Series[Product[1/(1 - (3*k-1)*x^(3*k-1)), {k, 1, nmax}], {x, 0, nmax}], x]
|