|
%I #8 Sep 24 2017 04:56:01
%S 1,-2,5,-12,27,-58,120,-239,456,-826,1397,-2130,2666,-1727,-4308,
%T 24597,-80658,220301,-544803,1259278,-2760324,5775490,-11553490,
%U 22039330,-39774088,66751007,-100238388,120817159,-61934817,-261953355,1315627072,-4183664882,11262428169,-27602763180
%N Expansion of 1/(1 + x + x/(1 + x + x^2/(1 + x + x^3/(1 + x + x^4/(1 + x + x^5/(1 + ...)))))), a continued fraction.
%H Vaclav Kotesovec, <a href="/A292799/b292799.txt">Table of n, a(n) for n = 0..1000</a>
%t nmax = 33; CoefficientList[Series[1/(1 + x + ContinuedFractionK[x^k, 1 + x, {k, 1, nmax}]), {x, 0, nmax}], x]
%t nmax = 40; CoefficientList[Series[1/Fold[(1 + x + #2/#1) &, 1, Reverse[x^Range[nmax]]], {x, 0, nmax}], x] (* _Vaclav Kotesovec_, Sep 24 2017 *)
%Y Cf. A088355.
%K sign
%O 0,2
%A _Ilya Gutkovskiy_, Sep 23 2017
|
