The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #16 Mar 31 2019 14:25:11
%S 1,-64,6016,182844416,-1001405579264,-33574129505665024,
%T 1883390165749948481536,20340448295605095121289216,
%U -36112647755760335076622057078784
%N Expansion of tanh(tanh(x)*tan(x))/2.
%t With[{nn=40},Take[CoefficientList[Series[Tanh[Tanh[x]*Tan[x]]/2,{x,0,nn}],x] Range[0,nn-2]!,{3,-1,4}]] (* _Harvey P. Dale_, Mar 31 2019 *)
%Y Cf. A012673.
%K sign
%O 0,2
%A _R. H. Hardin_
%E Extended with signs Mar 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, Mar 31 2019