A009658 - OEIS

%I #13 Oct 05 2023 11:24:23

%S 1,2,8,-120,-12160,-750080,-36334464,147613952,499312189440,

%T 118002014031872,18886517107687424,1095225249188249600,

%U -831828929736605794304,-517984611085464701173760

%N Expansion of tan(sin(sinh(x))).

%t With[{nn=30},Take[CoefficientList[Series[Tan[Sin[Sinh[x]]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Oct 05 2023 *)

%K sign

%O 0,2

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997

%E Previous Mathematica program replaced by _Harvey P. Dale_, Oct 05 2023