login
Expansion of e.g.f. log(1+sin(x)^2)/2 (even-indexed coefficients).
1

%I #18 Apr 02 2017 15:37:06

%S 0,1,-10,256,-13840,1282816,-181649920,36478744576,-9861412096000,

%T 3452931391553536,-1520176422094766080,821908023102140317696,

%U -535369559186849435484160,413508899951810581475885056,-373681769282729298809313034240,390605070751731814007608616943616

%N Expansion of e.g.f. log(1+sin(x)^2)/2 (even-indexed coefficients).

%t With[{nn=30},Take[CoefficientList[Series[Log[1+Sin[x]^2]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, May 21 2014 *)

%Y Cf. A009344.

%K sign

%O 0,3

%A _R. H. Hardin_

%E Extended with signs Mar 1997

%E Prior Mathematica program replaced by _Harvey P. Dale_, May 21 2014