|
MATHEMATICA
|
a[0] = {1};
a[1] = {1, 5};
a[2] = {1, 5, 7, 11};
a[3] = {1, 4, 5, 7, 8, 11};
a[4] = {1, 5, 7, 9, 11, 13, 17};
a[5] = {1, 7, 11, 13, 17, 19, 23, 29};
b0 = Table[Length[CoefficientList[Expand[Product[(1 + t^(2*a[i][[n]] + 1)), {n, 1, Length[a[i]]}]], t]] - 1, {i, 0, 5}]
|