|
%I #18 Oct 14 2022 11:59:07
%S 0,1,-1,3,-4,25,-61,427,-1184,12465,-49201,555731,-2361844,35135945,
%T -191422141,2990414715,-17147588384,329655706465,-2289437638081,
%U 45692713833379,-329955144475204,7777794952988025,-65643617893832221
%N Expansion of log(1 + tanh(x))/cos(x).
%F a(n) ~ n! * 2^(n+1) * (Pi + (1+(-1)^n) * log(2/(1+exp(Pi)))) / Pi^(n+1). - _Vaclav Kotesovec_, Jan 24 2015
%t CoefficientList[Series[Log[1 + Tanh[x]]*Sec[x], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 24 2015 *)
%Y a(2n+1) = A009843(n), |a(2n)| = A009391(2n).
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Incorrect Mathematica program deleted by _Harvey P. Dale_, Oct 14 2022
|
