bit of editing wanted : are these equivalent?

wouter meeussen wouter.meeussen at pandora.be
Sat Dec 6 20:07:29 CET 2003


http://www.research.att.com/projects/OEIS?Anum=A002425

gives 1,1,1,17,31,691,5461,929569,3202291,221930581,4722116521, ..
name: Denominator of Pi^(2n)/(GAMMA(2n)*(1-2^(-2n))*Zeta(2n))

I hit on it using something different
(or does it take a trained eye to see the equivalence with A002425 ?)

Numerator[ CoefficientList[
        Series[1/(1 + Cosh[Sqrt[x]]), {x, 0, 16}]
    , x]*Range[0, 16]! ]

1, -1, 1, -17, 31, -691, 5461, -929569, 3202291, -221930581, 4722116521,..

or, equivalently,
Numerator[ CoefficientList[
     Series[1/(1 + Cosh[x]), {x, 0, 16}]
, x]*Range[0, 16]! ]

1, 0, -1, 0, 1, 0, -17, 0, 31, 0, -691, 0, 5461, 0, -929569, 0, 3202291

where the denominators are http://www.research.att.com/projects/OEIS?Anum=A006519
(Highest power of 2 dividing n.)

(have I stumbled upon an EGF for A002425?)

Wouter.








More information about the SeqFan mailing list