login
Expansion of e.g.f. 1/(1 - x + log(1 - x)).
15

%I #53 Mar 07 2024 03:39:01

%S 1,2,9,62,572,6604,91526,1480044,27353448,568731648,13138994112,

%T 333895239072,9256507508112,278000959058016,8991458660924112,

%U 311585506208924064,11517363473843526912,452332548042633835776

%N Expansion of e.g.f. 1/(1 - x + log(1 - x)).

%C Previous name was: A simple grammar.

%C a(n) is the number of ways to seat n people at circular tables, then linearly order the tables, then designate some (possibly all or none) of the tables at which only one person is seated. a(2) = 9 because we have: (1)(2), (1')(2), (1)(2'), (1')(2'), (2)(1), (2')(1), (2)(1'), (2')(1'), (1,2). Cf. A007840. - _Geoffrey Critzer_, Nov 05 2013

%H Seiichi Manyama, <a href="/A052820/b052820.txt">Table of n, a(n) for n = 0..395</a>

%H W. S. Gray and M. Thitsa, <a href="http://dx.doi.org/10.1109/SSST.2013.6524939">System Interconnections and Combinatorial Integer Sequences</a>, in: System Theory (SSST), 2013 45th Southeastern Symposium on, Date of Conference: 11-11 Mar 2013.

%H INRIA Algorithms Project, <a href="http://ecs.inria.fr/services/structure?nbr=785">Encyclopedia of Combinatorial Structures 785</a>

%H Makhin Thitsa and W. Steven Gray, <a href="http://www.nt.ntnu.no/users/skoge/prost/proceedings/cdc-ecc-2011/data/papers/0057.pdf">On the Radius of Convergence of Cascaded Analytic Nonlinear Systems</a>, 2011 50th IEEE Conference on Decision and Control and European Control Conference (CDC-ECC), Orlando, FL, USA, December 12-15, 2011, pp. 3830-3835.

%H M. Thitsa and W. S. Gray, <a href="https://doi.org/10.1109/SSST.2011.5753772">On the radius of convergence of cascaded analytic nonlinear systems: The SISO case</a>, System Theory (SSST), 2011 IEEE 43rd Southeastern Symposium on, 14-16 March 2011, pp. 30-36.

%H Makhin Thitsa and W. Steven Gray, <a href="http://dx.doi.org/10.1137/110852760">On the Radius of Convergence of Interconnected Analytic Nonlinear Input-Output Systems</a>, SIAM Journal on Control and Optimization, Vol. 50, No. 5, 2012, pp. 2786-2813. - From _N. J. A. Sloane_, Dec 26 2012

%F E.g.f.: -1/(-1+x+log(-1/(-1+x))).

%F a(n) ~ n! * (1/(1-LambertW(1)))^n/(1/LambertW(1)-LambertW(1)). - _Vaclav Kotesovec_, Oct 01 2013

%F a(0) = 1; a(n) = n * a(n-1) + Sum_{k=0..n-1} binomial(n,k) * (n-k-1)! * a(k). - _Ilya Gutkovskiy_, Apr 26 2021

%p spec := [S,{C=Cycle(Z),B=Union(C,Z),S=Sequence(B)},labeled]: seq(combstruct[count](spec,size=n), n=0..20);

%t CoefficientList[Series[1/(1-x+Log[1-x]), {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Oct 01 2013 *)

%Y Cf. A030178.

%Y Cf. A367851, A367852, A367853.

%Y Cf. A367845, A367846, A367847.

%K easy,nonn

%O 0,2

%A encyclopedia(AT)pommard.inria.fr, Jan 25 2000

%E New name using e.g.f., _Vaclav Kotesovec_, Oct 01 2013