A331559 E.g.f.: -log(1 + x + log(1 - x)).
0, 1, 2, 9, 44, 280, 2064, 17738, 172528, 1880856, 22686960, 300193872, 4323063744, 67323469200, 1127433161568, 20205636981840, 385897245967104, 7824675262660608, 167885148101916672, 3800289634376282496, 90513807325761507840, 2262830879094971399424
Offset: 1
Keywords
Programs
-
Mathematica
nmax = 22; CoefficientList[Series[-Log[1 + x + Log[1 - x]], {x, 0, nmax}], x] Range[0, nmax]! // Rest
Formula
a(n) ~ (n-1)! / (1 + LambertW(-exp(-2)))^n. - Vaclav Kotesovec, Jan 26 2020
Comments