A296839 Expansion of e.g.f. tan(x*tan(x/2)) (even powers only).

0, 1, 1, 33, 437, 22205, 978873, 81005113, 7356832669, 949918117653, 142805534055905, 27120922891214801, 6016195462632487941, 1592800634594574194413, 486576430503128985793417, 171866951067212728072402665, 69025662074064538734826793453

Offset

0,4

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..200

Formula

a(n) = (2*n)! * [x^(2*n)] tan(x*tan(x/2)).

a(n) ~ c * d^n * n^(2*n + 1/2) / exp(2*n), where d = 16/Pi^2 = 1.621138938277404343102071411355642222469740394755... is the root of the equation tan(1/sqrt(d)) = Pi*sqrt(d)/4 and c = 1.75568815831... - Vaclav Kotesovec, Dec 21 2017, updated Mar 16 2024

Example

tan(x*tan(x/2)) = x^2/2! + x^4/4! + 33*x^6/6! + 437*x^8/8! + ...

Mathematica

nmax = 16; Table[(CoefficientList[Series[Tan[x Tan[x/2]], {x, 0, 2 nmax}], x] Range[0, 2 nmax]!)[[n]], {n, 1, 2 nmax + 1, 2}]

Crossrefs

Cf. A000182, A001469, A003718, A009707, A024265, A110501, A296835, A296841, A296842.

Sequence in context: A252925 A107965 A220591 * A296988 A367983 A058796

Adjacent sequences: A296836 A296837 A296838 * A296840 A296841 A296842

Keyword

nonn

Author

Ilya Gutkovskiy, Dec 21 2017

Status

approved