%I #13 Nov 20 2018 12:16:00
%S 1,-1,-19,-253,-1415,164999,15064037,949320395,44870780017,
%T 1646995429391,436144142262365,216025221401835155,
%U 72522443306062946281,18012134571875515731095,2730160186702754555432789
%N Expansion of tan(x)/cosh(tan(x)).
%t With[{nn=30},Take[CoefficientList[Series[Tan[x]/Cosh[Tan[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Nov 20 2018 *)
%K sign
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Nov 20 2018
|