|
Search: id:A089171
|
|
|
| A089171 |
|
Numerators of series coefficients of 1/(1 + Cosh[Sqrt[x]]). |
|
+0
4
|
|
| 1, -1, 1, -17, 31, -691, 5461, -929569, 3202291, -221930581, 4722116521, -56963745931, 14717667114151, -2093660879252671, 86125672563201181, -129848163681107301953, 868320396104950823611, -209390615747646519456961, 14129659550745551130667441
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
Unsigned version is equal to A002425 up to n=11, but differs beyond that point.
|
|
LINKS
|
N. J. A. Sloane, Table of n, a(n) for n = 0..299
|
|
FORMULA
|
a(n) = numerator(c(n+1)) where c(n)=(2^(2*n)-1)*B(2*n)/(2*n)!, B(k) denotes the k-th Bernoulli number. - C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 19 2004
Numerators of expansion of cosec(x)-cot(x) = 1/2*x+1/4*x^3/3!+1/2*x^5/5!+17/8*x^7/7!+31/2*x^9/9!+... - Ralf Stephan, Dec 21 2004 (Comment was applied to wrong entry, corrected by Alessandro Musesti (musesti(AT)gmail.com), Nov 02 2007)
|
|
MAPLE
|
with(numtheory): c := n->(2^(2*n)-1)*bernoulli(2*n)/(2*n)!; seq(numer(c(n)), n=1..20); (C. Ronaldo)
|
|
MATHEMATICA
|
Numerator[CoefficientList[Series[1/(1+Cosh[Sqrt[x]]), {x, 0, 24}], x]]
|
|
CROSSREFS
|
Cf. A002425, A050970, A002430, A046990.
Sequence in context: A027722 A060342 A045700 this_sequence A002425 A046990 A059212
Adjacent sequences: A089168 A089169 A089170 this_sequence A089172 A089173 A089174
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Wouter Meeussen (wouter.meeussen(AT)pandora.be), Dec 07 2003
|
|
|
Search completed in 0.002 seconds
|
