A024246 Expansion of tan(sin(x))*sinh(x)/2.

0, 1, 4, 4, -480, -12208, 87488, 27536192, 1208587264, -78798149376, -18257785424896, -819996200344576, 272839221776048128, 64613626344768458752, 380326723619536551936, -3364767702453136892805120

Offset

0,3

Links

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

Jose Torres-Jimenez, Roberto Blanco-Rocha, and Carlos Lara-Alvarez, LU Decomposition of delta-Vandermonde Matrices, IEEE Access 13 (2025) 187361-187372. See references.

Mathematica

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

Crossrefs

Cf. A009666.

Sequence in context: A000790 A068556 A078243 * A358199 A024247 A067445

Adjacent sequences: A024243 A024244 A024245 * A024247 A024248 A024249

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs Mar 1997

Previous Mathematica program replaced by Harvey P. Dale, Mar 01 2025

Status

approved