|
%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_.
|
