OFFSET
1,2
MATHEMATICA
nn = 73; squareFree = Select[Range[8*nn], SquareFreeQ]; b[n_] := SeriesCoefficient[q (Product[(1 - q^k), {k, 11, n, 11}] Product[1 - q^k, {k, n}])^2, {q, 0, n}]; Table[b[squareFree[[n]]], {n, 1, nn}]
CROSSREFS
KEYWORD
sign
AUTHOR
Mats Granvik, Oct 10 2023
STATUS
approved