A009260 Expansion of exp(tanh(tan(x))).

1, 1, 1, 1, 1, -7, -47, -279, -1343, -5167, -8671, 150833, 2436545, 27945609, 249528945, 1993449433, 10176663169, -9028140255, -1606374108095, -31838140005407, -482969577637247, -6048738288194407, -59264468409177327

Offset

0,6

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[Tanh[Tan[x]]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Jun 08 2021 *)

Crossrefs

Sequence in context: A091516 A064385 A269520 * A201871 A198845 A323131

Adjacent sequences: A009257 A009258 A009259 * A009261 A009262 A009263

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, Jun 08 2021

Status

approved