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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A339027 E.g.f.: exp(2 * (exp(x) - 1 - x - x^2 / 2 - x^3 / 6 - x^4 / 24)). 4
 1, 0, 0, 0, 0, 2, 2, 2, 2, 2, 506, 1850, 5018, 12014, 26886, 1066782, 8193070, 42723722, 185108514, 719359762, 10426744914, 118490840686, 976376930502, 6583701431086, 38977418758494, 377188932759354, 4671829781287922, 51479602726372402, 483303800325691922 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,6 LINKS Seiichi Manyama, Table of n, a(n) for n = 0..576 FORMULA a(0) = 1; a(n) = 2 * Sum_{k=5..n} binomial(n-1,k-1) * a(n-k). a(n) = Sum_{k=0..n} binomial(n,k) * A057814(k) * A057814(n-k). MATHEMATICA nmax = 28; CoefficientList[Series[Exp[2 (Exp[x] - 1 - x - x^2/2 - x^3/6 - x^4/24)], {x, 0, nmax}], x] Range[0, nmax]! a[0] = 1; a[n_] := a[n] = 2 Sum[Binomial[n - 1, k - 1] a[n - k], {k, 5, n}]; Table[a[n], {n, 0, 28}] PROG (PARI) my(x='x+O('x^30)); Vec(serlaplace(exp(2 * (exp(x) - 1 - x - x^2/2 - x^3/6 - x^4/24)))) \\ Michel Marcus, Nov 20 2020 CROSSREFS Cf. A001861, A057814, A194689, A339014, A339017. Sequence in context: A334053 A270374 A067089 * A343121 A090872 A283472 Adjacent sequences:  A339024 A339025 A339026 * A339028 A339029 A339030 KEYWORD nonn AUTHOR Ilya Gutkovskiy, Nov 20 2020 STATUS approved

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.

Last modified August 9 21:08 EDT 2022. Contains 356026 sequences. (Running on oeis4.)