OFFSET
0,2
MATHEMATICA
nmax = 50; CoefficientList[Series[1/(1 + x + ContinuedFractionK[x^k, 1 + x^(k + 1), {k, 1, nmax}]), {x, 0, nmax}], x]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Sep 25 2017
STATUS
approved