A024338 Expansion of log(1+x)*log(1+tan(x))/2.

0, 0, 1, -3, 15, -80, 542, -4158, 37228, -374592, 4237120, -53017712, 729890528, -10957004864, 178355968576, -3129133077376, 58889303575296, -1183497066823680, 25300855990394880, -573326855846475776

Offset: 0

Author

R. H. Hardin

Keywords

• sign

Crossrefs

Cf. A009422.

Programs

Mathematica

With[{nn=20},CoefficientList[Series[Log[1+x]Log[1+Tan[x]]/2,{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Oct 27 2011 *)

Extensions

Extended with signs, Mar 1997