|
%I #5 Sep 14 2018 14:29:08
%S 1,-1,2,-3,0,30,-240,1470,-6720,12600,214200,-4019400,45460800,
%T -378378000,1727926200,16358542200,-608230022400,10777315348800,
%U -137136749349600,1088994283977600,4431653341315200,-412892994284971200,10654104643073892000,-189834731018203471200
%N Expansion of e.g.f. 1/(1 + x/(1 + (x^2/2!)/(1 + (x^3/3!)/(1 + (x^4/4!)/(1 + ...))))), a continued fraction.
%t nmax = 23; CoefficientList[Series[1/(1 + ContinuedFractionK[x^k/k!, 1, {k, 1, nmax}]), {x, 0, nmax}], x] Range[0, nmax]!
%Y Cf. A007325, A257544, A295945.
%K sign
%O 0,3
%A _Ilya Gutkovskiy_, Sep 12 2018
|
