A009251 Expansion of exp(tan(x)*sinh(x)).

1, 2, 24, 622, 27944, 1905482, 182347044, 23219007502, 3785452962224, 767440357144082, 189091470902634684, 55586950224109363222, 19201372121239603122824, 7694882454025442035178522

Offset

0,2

Links

Table of n, a(n) for n=0..13.

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Exp[Tan[x]*Sinh[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 01 2020 *)

Crossrefs

Sequence in context: A186632 A089835 A210909 * A009447 A193442 A123741

Adjacent sequences: A009248 A009249 A009250 * A009252 A009253 A009254

Keyword

nonn

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, Aug 01 2020

Status

approved