|
%I #7 Mar 31 2018 07:28:26
%S 1,1,2,5,8,16,28,49,76,135,221,350,571,892,1403,2178,3373,5131,7804,
%T 11784,17639,26330,39007,57523,84412,123336,179289,259635,374442,
%U 537848,769815,1097874,1560272,2210226,3121070,4393781,6167134,8631755,12048098,16771629
%N Expansion of Product_{k>=1} (1 + x^k)^A050985(k).
%H Vaclav Kotesovec, <a href="/A301596/b301596.txt">Table of n, a(n) for n = 0..1000</a>
%t 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_ *)
%Y Cf. A050985, A301597.
%K nonn
%O 0,3
%A _Vaclav Kotesovec_, Mar 24 2018
|
