%I #12 Oct 24 2017 18:15:35
%S 1,176,570496,9223556096,460993706622976,55266063875773300736,
%T 13556412676746128524312576,6098119622978353294582319415296,
%U 4642750780653941150969313976486199296
%N Expansion of tan(tanh(x)*tan(x))/2.
%t With[{nn=40},Take[CoefficientList[Series[Tan[Tanh[x]*Tan[x]]/2,{x,0,nn}],x] Range[0,nn-2]!,{3,-1,4}]] (* _Harvey P. Dale_, Oct 24 2017 *)
%Y A012669.
%K nonn
%O 0,2
%A _R. H. Hardin_
%E Extended and signs tested 03/97.
%E Name corrected by _Vaclav Kotesovec_, Jan 23 2015
%E Prior Mathematica program replaced by _Harvey P. Dale_, Oct 24 2017
|