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

1, 2, 8, -8, -4096, -184064, -6462336, 141778176, 56652931072, 7990288265216, 604515399630848, -52091469346013184, -36361552578811101184, -9602033551463759937536, -1234912222481784889933824

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

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

Adjacent sequences: A009674 A009675 A009676 * A009678 A009679 A009680

Keyword

sign

Author

R. H. Hardin

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