A007418 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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