login
E.g.f.: x/(x+3-2*exp(x)).
5

%I #15 Aug 01 2019 18:14:11

%S 0,1,2,12,80,690,7092,85162,1168400,18034938,309307340,5835250410,

%T 120092842872,2677545756106,64289692962068,1653899162167290,

%U 45384277496827424,1323216060906107994,40848835928097158172,1331096992220322502858

%N E.g.f.: x/(x+3-2*exp(x)).

%C Number of associative and quasitrivial binary operations on {1,...,n} that have neutral elements. Also: Number of associative and quasitrivial binary operations on {1,...,n} that have annihilator elements.

%H M. Couceiro, J. Devillet, and J.-L. Marichal, <a href="http://arxiv.org/abs/1709.09162">Quasitrivial semigroups: characterizations and enumerations</a>, arXiv:1709.09162 [math.RA], 2017.

%F a(n) = n*A292932(n-1).

%F a(n) ~ n! / ((r-1) * (r-3)^n), where r = -LambertW(-1, -2*exp(-3)) = 3.5830738760366909976807989989303134394318270218566... - _Vaclav Kotesovec_, Sep 27 2017

%t With[{nn=20},CoefficientList[Series[x/(x+3-2Exp[x]),{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Aug 01 2019 *)

%o (PARI) concat(0, Vec(serlaplace(x/(x+3-2*exp(x))))) \\ _Michel Marcus_, Sep 27 2017

%Y Cf. A292932, A292934.

%K nonn,easy

%O 0,3

%A _Jean-Luc Marichal_, Sep 27 2017