login
A008992
Denominators of coefficients in expansion of sqrt(sin(x)/x) (even powers only).
5
1, 12, 1440, 24192, 29030400, 5677056, 4649508864000, 100429391462400, 39023992111104000, 100609855353520128000, 8632325589332026982400000, 6946127879462505676800000, 3060839851788186207387648000000
OFFSET
0,2
LINKS
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 *)
PROG
(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
CROSSREFS
Numerators are in A008991.
Appears in A220002 and A220466.
Sequence in context: A230519 A235535 A145835 * A260448 A271514 A181856
KEYWORD
nonn
STATUS
approved