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

 

Logo
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.

License Agreements, Terms of Use, Privacy Policy. .

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