A013450 exp(tan(x)-arcsinh(x)) = 1+3/3!*x^3+7/5!*x^5+90/6!*x^6+497/7!*x^7...

1, 0, 0, 3, 0, 7, 90, 497, 1176, 4471, 185094, 1537877, 1964028, -3633797, 1848048202, 22918664225, -75962374768, -1620122697905, 67890529994062, 1135357942624877, -11941170933349628, -252473078493886301

Offset

0,4

Links

Alois P. Heinz, Table of n, a(n) for n = 0..200

Formula

E.g.f.: exp(tan(x))/(x+sqrt(1+x^2)). - Vaclav Kotesovec, Nov 01 2013

a(n) ~ -2*cos(Pi*n/2-tanh(1)) * n^(n-1) / exp(n). - Vaclav Kotesovec, Nov 01 2013

Mathematica

CoefficientList[Series[Exp[Tan[x]-ArcSinh[x]], {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Nov 01 2013 *)

Crossrefs

Sequence in context: A296364 A071296 A309669 * A013421 A011081 A209491

Adjacent sequences: A013447 A013448 A013449 * A013451 A013452 A013453

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Status

approved