login
Numerators of expansion of exp x / sin x.
4

%I #12 Aug 16 2022 07:39:51

%S 1,2,1,13,1,19,13,29,17,13,97,254983,1247,2593,4937,137561,6673,

%T 65082637,1058467,7254146201,1380290071,390121079,3216636877,

%U 1870450393439,536799743,109336409527,8113510922983

%N Numerators of expansion of exp x / sin x.

%H Robert Israel, <a href="/A007418/b007418.txt">Table of n, a(n) for n = 0..100</a>

%p c:= proc(m) option remember;

%p 1/(m+1)! - add((-1)^i/(2*i+1)!*c(m-2*i),i=1..floor((m+1)/2))

%p end proc;

%p c(-1):= 1;

%p A007418:= numer @ c; # _Robert Israel_, Apr 13 2014

%t Numerator /@ Rest@CoefficientList[x Exp[x]/Sin[x] + O[x]^30, x] (* _Jean-François Alcover_, Aug 16 2022 *)

%Y Cf. A007451.

%K nonn,frac

%O 0,2

%A _N. J. A. Sloane_.