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

1, 6, 112, 4592, 318208, 32169984, 4399544320, 779244812288, 173483433263104, 47421793222656000, 15607317689652477952, 6082241638882756001792, 2766961182829040965255168, 1451710442535733909612658688

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A162081 A296949 A382642 * A009798 A341478 A088668

Adjacent sequences: A009609 A009610 A009611 * A009613 A009614 A009615

Keyword

nonn

Author

R. H. Hardin

Extensions

Extended by Olivier Gérard, Mar 15 1997

Prior Mathematica program replaced by Harvey P. Dale, Oct 22 2013

Status

approved