%I #13 Jan 23 2015 16:55:11
%S 1,5,113,5781,520001,72300997,14337027825,3838128112661,
%T 1332896717838849,582503435362842629,312774761747765633777,
%U 202388665054249928155157,155314408487077603685528641
%N Expansion of tan(tan(sinh(x))) (odd powers only).
%F a(n) ~ (2*n-1)! * 8 / ((4+Pi^2) * sqrt(1+arctan(Pi/2)^2) * arcsinh(arctan(Pi/2))^(2*n)). - _Vaclav Kotesovec_, Jan 23 2015
%t Tan[ Tan[ Sinh[ x ] ] ] (* Odd Part *)
%t nn = 20; Table[(CoefficientList[Series[Tan[Tan[Sinh[x]]], {x, 0, 2*nn+1}], x] * Range[0, 2*nn+1]!)[[n]], {n, 2, 2*nn, 2}] (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K nonn
%O 1,2
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier GĂ©rard_.
%E Offset changed to 1 by _Vaclav Kotesovec_, Jan 23 2015