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!)
A009832 E.g.f. tanh(x)*exp(x). 4
0, 1, 2, 1, -4, 1, 62, 1, -1384, 1, 50522, 1, -2702764, 1, 199360982, 1, -19391512144, 1, 2404879675442, 1, -370371188237524, 1, 69348874393137902, 1, -15514534163557086904, 1, 4087072509293123892362, 1, -1252259641403629865468284, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

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

FORMULA

G.f.: x/U(0)/(1-x) where U(k) = 1 - x + x^2*(k+1)*(k+2)/U(k+1); (continued fraction, 1-step). - Sergei N. Gladkovskii, Oct 14 2012

G.f.: x/(1-x)/Q(0), where Q(k) = 1 + x - x*(k+2)/(1+x*(k+1)/Q(k+1)); (continued fraction). - Sergei N. Gladkovskii, Apr 21 2013

If n is even, a(n) ~ (-1)^(1+n/2) * n! * 2^(n+2)/Pi^(n+1). - Vaclav Kotesovec, Oct 23 2013

MAPLE

G(x):=exp(x)*tanh(x): f[0]:=G(x): for n from 1 to 54 do f[n]:=diff(f[n-1], x) od: x:=0: seq(f[n], n=0..27 ); # Zerinvary Lajos, Apr 05 2009

MATHEMATICA

With[{nn=30}, CoefficientList[Series[Tanh[x]Exp[x], {x, 0, nn}], x]Range[0, nn]!] (* Harvey P. Dale, Aug 18 2012 *)

PROG

(PARI) x='x+O('x^66); concat([0], Vec(serlaplace( tanh(x)*exp(x) ) ) ) \\ Joerg Arndt, Apr 21 2013

CROSSREFS

Sequence in context: A145998 A218952 A177413 * A016445 A244554 A194735

Adjacent sequences:  A009829 A009830 A009831 * A009833 A009834 A009835

KEYWORD

sign,easy

AUTHOR

R. H. Hardin

EXTENSIONS

Extended with signs by Olivier Gérard, Mar 15 1997

Definition clarified by Harvey P. Dale, Aug 18 2012

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 June 23 21:09 EDT 2021. Contains 345402 sequences. (Running on oeis4.)