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

A346746
E.g.f.: exp( (x * exp(x) - sinh(x)) / 2 ).
2
1, 0, 1, 1, 5, 12, 58, 220, 1145, 5684, 33284, 198412, 1306355, 8945046, 65658392, 503505600, 4076565489, 34442610648, 304577372128, 2802673411280, 26840614943667, 266644080930194, 2745669007978680, 29243006731749200, 321810005123384617, 3653558357684804324
OFFSET
0,5
Exponential transform of A004526.
FORMULA
a(0) = 1; a(n) = Sum_{k=1..n} binomial(n-1,k-1) * A004526(k) * a(n-k).
MATHEMATICA
nmax = 25; 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] Floor[k/2] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 25}]
CROSSREFS
Sequence in context: A179994 A131549 A342549 * A111904 A015784 A302182
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Aug 01 2021
STATUS
approved

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

Last modified September 20 09:48 EDT 2024. Contains 376068 sequences. (Running on oeis4.)