%I
%S 1,2,2,4,2,136,676,656,62,47672,2714132,3091664,7223932,
%T 16788784,120994136,15764283616,13831453742,3729134588968,
%U 463898158095404,119174509180016
%N Numerator of [x^n] in the Taylor expansion exp(cot(x)coth(x))= 12*x/3 +2x^2/9 4*x^3/81 +2*x^4/243 136*x^5/25515 +676*x^6/229635 ...
%C The inner function is cot(x)coth(x) = 2x/3 4x^5/945 4x^9/93555 8x^13/18243225 ...
%H Harvey P. Dale, <a href="/A013551/b013551.txt">Table of n, a(n) for n = 0..485</a>
%t Numerator[CoefficientList[Series[Exp[Cot[x]Coth[x]],{x,0,20}],x] ] (* _Harvey P. Dale_, Feb 16 2014 *)
%K sign,frac
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Name edited by _R. J. Mathar_, Dec 21 2011
