A009685 Expansion of e.g.f. tan(sinh(x)*cos(x)), odd powers only.

1, 0, -28, -448, 12112, 1368576, 6365504, -12034425856, -1083196126976, 198483816038400, 67920087885661184, -1384610933181693952, -5947819353252706660352, -1087299291711947739365376

Offset

0,3

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Tan[Sinh[x]Cos[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Jan 18 2014 *)

Crossrefs

Sequence in context: A154588 A125485 A054337 * A007833 A080315 A022752

Adjacent sequences: A009682 A009683 A009684 * A009686 A009687 A009688

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Prior Mathematica program replaced by Harvey P. Dale, Jan 18 2014

Clarified definition, Joerg Arndt, Feb 09 2014

Status

approved