A371550 Expansion of e.g.f. Product_{k>=1} (1 + mu(k)^2*x^k/k!).
1, 1, 1, 4, 4, 11, 67, 29, 260, 876, 3841, 34134, 69774, 152231, 774243, 4182754, 30376720, 409813561, 1056300594, 3175397668, 3655126844, 91668397027, 499871922705, 5219638765816, 120716816247428, 17518596045460, 193032439198301, 3860666483055372, 22675538336311998
Offset: 0
Keywords
Programs
-
Mathematica
nmax = 28; CoefficientList[Series[Product[(1 + MoebiusMu[k]^2 x^k/k!), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!