A009671 Expansion of e.g.f. tan(sin(x)*cosh(x)), odd powers only.

1, 4, 52, 1776, 95184, 8098880, 965358656, 155373092608, 32381834795264, 8483377324590080, 2729934728621511680, 1058257916995852103680, 486461302251310562234368, 261629260950851535726460928, 162758580940261631762847645696

Offset

0,2

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Tan[Sin[x]*Cosh[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Jul 05 2013 *)

Crossrefs

Sequence in context: A343429 A277353 A055974 * A015001 A355612 A317829

Adjacent sequences: A009668 A009669 A009670 * A009672 A009673 A009674

Keyword

nonn

Author

R. H. Hardin

Extensions

Extended and signs tested by Olivier Gérard, Mar 15 1997

Prior Mathematica program replaced by Harvey P. Dale, Jul 05 2013

Clarified definition by Joerg Arndt, Feb 09 2014

a(14) from Vincenzo Librandi, Feb 09 2014

Status

approved