login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A308351 For n >= 2, a(n) = n*u(n-1) + n*(n-1)*u(n-2), where u = A292932; a(1)=1. 1

%I #28 Nov 26 2020 16:49:09

%S 1,4,18,128,1090,11232,134806,1849696,28550538,489656720,9237631150,

%T 190115847792,4238752713442,101775333547552,2618244556598310,

%U 71846664091504064,2094748778352174202,64666725024407102064,2107224874854168508126,72279858915240296971600

%N For n >= 2, a(n) = n*u(n-1) + n*(n-1)*u(n-2), where u = A292932; a(1)=1.

%H Robert Israel, <a href="/A308351/b308351.txt">Table of n, a(n) for n = 1..412</a>

%H M. Couceiro, J. Devillet, <a href="https://arxiv.org/abs/1904.05968">All quasitrivial n-ary semigroups are reducible to semigroups</a>, arXiv:1904.05968 [math.RA], 2019.

%F a(n) = n*A292932(n-1) + n*(n-1)*A292932(n-2) = A292933(n) + n*A292933(n-1) for n >= 2.

%F E.g.f.: x*(1 + x)/(3 - 2*exp(x) + x). - _Vaclav Kotesovec_, Jun 05 2019

%F a(n) ~ n! * (r-2) / ((r-1) * (r-3)^n), where r = -LambertW(-1, -2*exp(-3)). - _Vaclav Kotesovec_, Jun 05 2019

%p E:= x*(1 + x)/(3 - 2*exp(x) + x):

%p S:= series(E,x,51):

%p seq(coeff(S,x,n)*n!,n=1..50); # _Robert Israel_, Nov 26 2020

%t nmax = 20; Rest[CoefficientList[Series[x*(1 + x)/(3 - 2*E^x + x), {x, 0, nmax}], x] * Range[0, nmax]!] (* _Vaclav Kotesovec_, Jun 05 2019 *)

%Y Cf. A292932, A292933.

%K nonn,easy

%O 1,2

%A _J. Devillet_, May 21 2019

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 14:13 EDT 2024. Contains 371254 sequences. (Running on oeis4.)