login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A331611 E.g.f.: exp(1 / (2 - cosh(x)) - 1) (even powers only). 4
1, 1, 10, 241, 10585, 732826, 73233205, 9955632961, 1764233731270, 394629336427021, 108652463882802505, 36084903957564392206, 14217903951354603567385, 6554505383225768210009041, 3493988190176442653240091010, 2131975894217009666242489287001 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Table of n, a(n) for n=0..15.

FORMULA

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

a(n) ~ 2^(2*n + 1/4) * exp(1/(2*sqrt(3)*log(2 + sqrt(3))) - 2/3 + sqrt(8*n/log(2 + sqrt(3)))/3^(1/4) - 2*n) * n^(2*n - 1/4) / (3^(1/8) * log(2 + sqrt(3))^(2*n + 1/4)). - Vaclav Kotesovec, Jan 26 2020

MATHEMATICA

nmax = 15; Table[(CoefficientList[Series[Exp[1/(2 - Cosh[x]) - 1], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!)[[n]], {n, 1, 2 nmax + 1, 2}]

A094088[0] = 1; A094088[n_] := A094088[n] = Sum[Binomial[2 n, 2 k] A094088[n - k], {k, 1, n}]; a[0] = 1; a[n_] := a[n] = Sum[Binomial[2 n - 1, 2 k - 1] A094088[k] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 15}]

CROSSREFS

Cf. A005046, A050351, A075729, A094088, A331608, A331612.

Sequence in context: A211088 A064757 A087435 * A122836 A116878 A218307

Adjacent sequences:  A331608 A331609 A331610 * A331612 A331613 A331614

KEYWORD

nonn

AUTHOR

Ilya Gutkovskiy, Jan 22 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 29 13:28 EDT 2021. Contains 346346 sequences. (Running on oeis4.)