%I #13 Jun 22 2015 22:27:54
%S 0,1,-1,2,-6,16,-72,272,-1456,7936,-47104,353792,-2390784,22368256,
%T -180612096,1903757312,-18625189888,209865342976,-2431403622400,
%U 29088885112832,-384624656646144,4951498053124096,-72343735465672704
%N Expansion of log(1+tanh(tan(x))).
%t Log[ 1+Tanh[ Tan[ x ] ] ]
%t CoefficientList[Series[Log[1 + Tanh[Tan[x]]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%Y Cf. A000182.
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
|