login
A009677
Expansion of e.g.f. tan(sinh(sin(x))), odd powers only.
1
1, 2, 8, -8, -4096, -184064, -6462336, 141778176, 56652931072, 7990288265216, 604515399630848, -52091469346013184, -36361552578811101184, -9602033551463759937536, -1234912222481784889933824
OFFSET
0,2
LINKS
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A012346 A012649 A009627 * A318605 A021350 A016641
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Aug 06 2013
Clarified definition, Joerg Arndt, Feb 09 2014
STATUS
approved