OFFSET
0,2
MATHEMATICA
nmax = 49; CoefficientList[Series[Product[(1 + x^Fibonacci[k])/(1 - x^Fibonacci[k]), {k, 2, 20}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 05 2018
STATUS
approved