A301596 Expansion of Product_{k>=1} (1 + x^k)^A050985(k).

1, 1, 2, 5, 8, 16, 28, 49, 76, 135, 221, 350, 571, 892, 1403, 2178, 3373, 5131, 7804, 11784, 17639, 26330, 39007, 57523, 84412, 123336, 179289, 259635, 374442, 537848, 769815, 1097874, 1560272, 2210226, 3121070, 4393781, 6167134, 8631755, 12048098, 16771629

Offset: 0

Author

Vaclav Kotesovec, Mar 24 2018

Keywords

• nonn

Links

• Vaclav Kotesovec, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A050985, A301597.

Programs

Mathematica

nmax = 40; CoefficientList[Series[Exp[Sum[-(-1)^j * Sum[k/(Times @@ (#[[1]]^(#[[2]] - Mod[#[[2]], 3]) & ) /@ FactorInteger[k]) * x^(j*k) / j, {k, 1, Floor[nmax/j] + 1}], {j, 1, nmax}]], {x, 0, nmax}], x] (* Vaclav Kotesovec, Mar 31 2018, after Jean-François Alcover *)