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!)
A190818 Expansion of e.g.f.: 1/(1-2*tanh(x)). 2
1, 2, 8, 44, 320, 2912, 31808, 405344, 5903360, 96722432, 1760811008, 35260703744, 770296217600, 18229999665152, 464622502289408, 12687528814751744, 369557965317079040, 11437129322496131072, 374778854976227115008, 12963259774166774841344, 471986702056014668103680 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
LINKS
FORMULA
E.g.f: 1/(1-2*tanh(x)).
a(n) ~ n! * 2^(n+2)/(3*(log(3))^(n+1)). - Vaclav Kotesovec, Jun 26 2013
MAPLE
E(x):=1/(1-2*tanh(x)):
a[0]:=E(x):
for n from 1 to 30 do a[n]:=diff(a[n-1], x) od:
x:=0:
seq(a[n], n=0..30);
MATHEMATICA
CoefficientList[Series[1/(1-2*Tanh[x]), {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Jun 26 2013 *)
PROG
(PARI) x='x+O('x^66);
Vec(serlaplace(1/(1-2*tanh(x)))) /* Joerg Arndt, May 21 2011 */
(Magma) R<x>:=PowerSeriesRing(Rationals(), 30); Coefficients(R!(Laplace( 1/(1-2*Tanh(x)) ))); // G. C. Greubel, Dec 03 2023
(SageMath)
def A190818_list(prec):
P.<x> = PowerSeriesRing(QQ, prec)
return P( 1/(1-2*tanh(x)) ).egf_to_ogf().list()
A190818_list(40) # G. C. Greubel, Dec 03 2023
CROSSREFS
Cf. A011782 (e.g.f. of 1/(1-tanh(x))).
Sequence in context: A123307 A293905 A244430 * A330444 A253949 A336545
KEYWORD
nonn
AUTHOR
Miklos Kristof, May 21 2011
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 March 29 03:41 EDT 2024. Contains 371264 sequences. (Running on oeis4.)