|
%I #14 Feb 01 2015 04:20:41
%S 0,2,16,432,23168,2039040,265344000,47773128704,11359970459648,
%T 3446710775119872,1299134788619468800,595445934379289804800,
%U 326113437715996197519360,210324874581761164037849088
%N Expansion of tan(tan(x))*x.
%F a(n) ~ (2*n)! * 8 / ((4+Pi^2) * arctan(Pi/2)^(2*n)). - _Vaclav Kotesovec_, Jan 23 2015
%t With[{nn=30},Take[CoefficientList[Series[Tan[Tan[x]]*x ,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jun 08 2014 *)
%K nonn
%O 0,2
%A _R. H. Hardin_
%E Extended and signs tested Mar 15 1997 by _Olivier Gérard_.
%E Previous Mathematica program replaced by _Harvey P. Dale_, Jun 08 2014
|
