A383992 Series expansion of the exponential generating function exp(arbustive(x)) - 1 where arbustive(x) = (log(1+x) - x^2) / (1+x).

0, 1, -4, 3, 40, -330, 1626, -3150, -54592, 1060920, -13022280, 127171440, -889086648, -283184616, 179750627616, -4895777544840, 99124001788800, -1721513264431680, 25736021675994816, -292896125040673728, 639149345262276480, 106178474282318726400

Offset: 0

Author

Michael De Vlieger, May 16 2025

Keywords

• sign
• easy

Links

• Michael De Vlieger, Table of n, a(n) for n = 0..448
• Bérénice Delcroix-Oger and Clément Dupont, Lie-operads and operadic modules from poset cohomology, arXiv:2505.06094 [math.CO], 2025. See p. 32, Table 3, operad "Arbustive".

Crossrefs

Cf. A003725, A097388, A111884, A112242, A114285, A177885, A318215, A383990, A383991, A383993, A383994, A383995.

Programs

Mathematica

nn = 21; f[x_] := Exp[x] - 1;
Range[0, nn]! * CoefficientList[Series[f[(Log[1 + x] - x^2)/(1 + x)], {x, 0, nn}], x]