OFFSET
0,3
LINKS
FORMULA
G.f.: A(x) = Product_{k >= 1} C(k,x^k)*C(2*k,x^(2*k)), where C(k,x) denotes the k-th cyclotomic polynomial. - Peter Bala, Mar 31 2023
MATHEMATICA
nmax = 80; lambda[k_Integer?Positive] := If[ k > 1, (-1)^Total[ Part[Transpose[FactorInteger[k]], 2] ], 1 ]; CoefficientList[ Series[ Product[ (1 + x^k)^(-lambda[k]), {k, 1, nmax} ], {x, 0, nmax} ], x ]
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Stuart Clary, Apr 15 2006
STATUS
approved