A330075 - OEIS

%I #4 Nov 30 2019 18:34:45

%S 1,1,2,7,32,168,1184,8622,77216,747576,8185392,93054960,1264465872,

%T 16974221184,254355732864,4069961945280,70258008510720,

%U 1228263760984320,24025502406873600,470522155226595840,10095034628228958720,222277023267825254400,5144511652272759029760

%N Expansion of e.g.f. Product_{k>=1} (1 - log(1 - x^k) / k).

%F E.g.f.: Product_{j>=1} (1 + Sum_{i>=1} x^(i*j) / (i*j)).

%t nmax = 22; CoefficientList[Series[Product[1 - Log[1 - x^k]/k, {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!

%t nmax = 22; CoefficientList[Series[Product[(1 + Sum[x^(i j)/(i j), {i, 1, nmax}]), {j, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!

%Y Cf. A000262, A178682, A330074.

%K nonn

%O 0,3

%A _Ilya Gutkovskiy_, Nov 30 2019