[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
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