A008992 Denominators of coefficients in expansion of sqrt(sin(x)/x) (even powers only).

1, 12, 1440, 24192, 29030400, 5677056, 4649508864000, 100429391462400, 39023992111104000, 100609855353520128000, 8632325589332026982400000, 6946127879462505676800000, 3060839851788186207387648000000

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..210

Crossrefs

Numerators are in A008991.

Appears in A220002 and A220466.

Programs

Maple

A008992 := n -> denom(coeff(taylor(sqrt(sin(x)/x), x, 2*n+2), x, 2*n)): seq(A008992(n),  n=0..12); # Johannes W. Meijer, Feb 10 2013

Mathematica

Denominator[CoefficientList[Series[Sqrt[Sin[x]/x], {x, 0, 50}], x][[1 ;; -1 ;; 2]]] (* G. C. Greubel, Jul 21 2018 *)

Sage

length = 12; T = taylor(sqrt(sin(x)/x),x,0,2*length+2)
[T.coefficient(x,2*n).denominator() for n in (0..length)]
# Peter Luschny, Dec 13 2012