A279107 Denominators of coefficients in expansion of 1/(1 - sin x).

1, 1, 1, 6, 3, 120, 45, 1008, 315, 362880, 14175, 7983360, 467775, 6227020800, 42567525, 261534873600, 638512875, 355687428096000, 97692469875, 4865804016353280, 9280784638125, 51090942171709440000, 126109485376875, 397723334444384256000, 147926426347074375

Offset

0,4

Comments

The numerators are the same as for sec(x) + tan(x); see A099612.

Links

Clark Kimberling, Table of n, a(n) for n = 0..1000

Example

1 + x + x^2 + (5/6)x^3 + (2/3)x^4 + (61/120)x^5 + ... ; 1, 1, 1/2, 5/6, 2/3, 61/120, ... = A099612/A279107.

Mathematica

z = 30; t = CoefficientList[Series[1/(1 - Sin[x]), {x, 0, z}], x];
Numerator[t]   (* A099612 *)
Denominator[t] (* A279107 *)

Crossrefs

Cf. A099612.

Sequence in context: A324004 A002610 A100979 * A266661 A136133 A200020

Adjacent sequences: A279104 A279105 A279106 * A279108 A279109 A279110

Keyword

nonn,easy,frac

Author

Clark Kimberling, Dec 07 2016

Status

approved