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!)
A224079 E.g.f. is series reversion of log(1+x)/cosh(x). 0
1, 1, 4, 25, 191, 1981, 24515, 357393, 6014944, 114374701, 2429126965, 56973837097, 1462548099325, 40790689845725, 1228180553509096, 39706476998683809, 1371869867621426343, 50445615936195883981, 1967026296214873286071, 81070802180747506986681 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

Table of n, a(n) for n=1..20.

FORMULA

E.g.f. satisfies: 1 + A(x) = exp(x*cosh(A(x))).

a(n) ~ n^(n-1) * ((1+s)*sinh(s))^n * sqrt((1+s)/(1+s+tanh(s))) / exp(n), where s = 0.96996536567590308324... is the root of the equation (1+s)*log(1+s)*tanh(s) = 1. - Vaclav Kotesovec, Jan 13 2014

EXAMPLE

E.g.f.: A(x) = x + x^2/2! + 4*x^3/3! + 25*x^4/4! + 191*x^5/5! + 1981*x^6/6! +...

MATHEMATICA

Rest[CoefficientList[InverseSeries[Series[Log[1+x]/Cosh[x], {x, 0, 20}], x], x] * Range[0, 20]!] (* Vaclav Kotesovec, Jan 13 2014 *)

PROG

(PARI) {a(n)=local(X=x+x*O(x^n)); n!*polcoeff(serreverse(log(1+X)/cosh(X)), n)}

for(n=1, 25, print1(a(n), ", "))

CROSSREFS

Cf. A052888.

Sequence in context: A064063 A171991 A141371 * A199494 A171791 A060908

Adjacent sequences:  A224076 A224077 A224078 * A224080 A224081 A224082

KEYWORD

nonn

AUTHOR

Paul D. Hanna, Jul 20 2013

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 May 17 11:25 EDT 2022. Contains 353745 sequences. (Running on oeis4.)