%I #22 Feb 09 2014 12:53:32

%S 1,2,8,-8,-4096,-184064,-6462336,141778176,56652931072,7990288265216,

%T 604515399630848,-52091469346013184,-36361552578811101184,

%U -9602033551463759937536,-1234912222481784889933824

%N Expansion of e.g.f. tan(sinh(sin(x))), odd powers only.

%H Vincenzo Librandi, <a href="/A009677/b009677.txt">Table of n, a(n) for n = 0..100</a>

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

%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_, Aug 06 2013

%E Clarified definition, _Joerg Arndt_, Feb 09 2014