A346747 E.g.f.: exp( (x * exp(x) + sinh(x)) / 2 ).

1, 1, 2, 6, 20, 79, 357, 1783, 9788, 58361, 374581, 2571851, 18779928, 145163975, 1183028095, 10129297307, 90843458256, 851083079649, 8309588493841, 84370700833147, 889152061199144, 9709123938880103, 109677977422359703, 1279880472867083111, 15408386793144717536

Offset: 0

Author

Ilya Gutkovskiy, Aug 01 2021

Keywords

• nonn

Comments

Exponential transform of A110654.

Crossrefs

Cf. A000248, A003724, A110654, A346746, A346748.

Programs

Mathematica

nmax = 24; CoefficientList[Series[Exp[(x Exp[x] + Sinh[x])/2], {x, 0, nmax}], x] Range[0, nmax]!
a[0] = 1; a[n_] := a[n] = Sum[Binomial[n - 1, k - 1] Ceiling[k/2] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 24}]

Formula

a(0) = 1; a(n) = Sum_{k=1..n} binomial(n-1,k-1) * A110654(k) * a(n-k).