A007418 Numerators of expansion of exp x / sin x.

1, 2, 1, 13, 1, 19, 13, 29, 17, 13, 97, 254983, 1247, 2593, 4937, 137561, 6673, 65082637, 1058467, 7254146201, 1380290071, 390121079, 3216636877, 1870450393439, 536799743, 109336409527, 8113510922983

Offset

0,2

Links

Robert Israel, Table of n, a(n) for n = 0..100

Maple

c:= proc(m) option remember;
  1/(m+1)! - add((-1)^i/(2*i+1)!*c(m-2*i), i=1..floor((m+1)/2))
end proc;
c(-1):= 1;
A007418:= numer @ c; # Robert Israel, Apr 13 2014

Mathematica

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

Crossrefs

Cf. A007451.

Sequence in context: A106750 A258821 A124916 * A037271 A074955 A352571

Adjacent sequences: A007415 A007416 A007417 * A007419 A007420 A007421

Keyword

nonn,frac

Author

N. J. A. Sloane.

Status

approved