A024286 - OEIS

%I #18 Apr 02 2017 15:36:27

%S 0,1,-8,183,-8852,733685,-92907942,16685025455,-4033626509768,

%T 1263031247390697,-497267081169369290,240429918597334607075,

%U -140051748469197955343340,96736260363763053291403613,-78176444639905678751886122222,73077125090731363505146141810455

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

%H Alois P. Heinz, <a href="/A024286/b024286.txt">Table of n, a(n) for n = 0..85</a>

%F a(n) = (2n)! * [x^(2n)] log(1+sin(x)*x)/2.

%p a:= n-> coeff(series(ln(1+sin(x)*x)/2,x,2*n+1),x,2*n)*(2*n)!:

%p seq(a(n), n=0..20);  # _Alois P. Heinz_, Jun 03 2012

%t Log[ 1+Sin[ x ]*x ]/2 (* Even Part *)

%Y Cf. A009341.

%K sign

%O 0,3

%A _R. H. Hardin_

%E Extended with signs Mar 1997