|
|
A046991
|
|
Denominators of Taylor series for log(1/cos(x)). Also from log(cos(x)).
|
|
3
|
|
|
1, 2, 12, 45, 2520, 14175, 935550, 42567525, 10216206000, 97692469875, 18561569276250, 2143861251406875, 34806217964017500, 48076088562799171875, 9086380738369043484375, 3952575621190533915703125, 3920955016221009644377500000, 68739242628124575327993046875
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
REFERENCES
|
L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 88.
CRC Standard Mathematical Tables and Formulae, 30th ed. 1996, p. 42.
|
|
LINKS
|
|
|
FORMULA
|
A046990(n)/a(n) = 2^(2n-1) *(2^(2n) -1) *abs(B(2n)) / ((2n)! *n).
Let q(n) = Sum_{k=0..n-1} (-1)^k*A201637(n-1,k) then a(n) = denominator((-1)^(n-1)*q(2*n)/(2*n)!). - Peter Luschny, Nov 16 2012
|
|
EXAMPLE
|
log(1/cos(x)) = 1/2*x^2+1/12*x^4+1/45*x^6+17/2520*x^8+31/14175*x^10+...
log(cos(x)) = -(1/2*x^2+1/12*x^4+1/45*x^6+17/2520*x^8+31/14175*x^10+...).
|
|
MAPLE
|
q:= proc(n) add((-1)^k*combinat[eulerian1](n-1, k), k=0..n-1) end: A046991:= n -> denom((-1)^(n-1)*q(2*n)/(2*n)!):
|
|
MATHEMATICA
|
Take[Denominator[CoefficientList[Series[Log[1/Cos[x]], {x, 0, 40}], x]], {1, -1, 2}] (* Harvey P. Dale, Jan 18 2020 *)
|
|
PROG
|
(Sage)
def q(n):
return add((-1)^k*A173018(n-1, k) for k in (0..n-1))
return ((-1)^(n-1)*q(2*n)/factorial(2*n)).denom()
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,frac,nice
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|