|
|
A301596
|
|
Expansion of Product_{k>=1} (1 + x^k)^A050985(k).
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|