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

Author

Clark Kimberling, Dec 07 2016

Keywords

• nonn
• easy
• frac

Comments

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

Examples

			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.
		

Links

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

Crossrefs

Cf. A099612.

Programs

Mathematica

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