A138729 a(n) = -A085466(n) times the free coefficient of the 2n-th Du Bois-Reymond polynomial in e^2.

7, 25, 98, 1167, 4650, 30930, 1111860, 31100895, 13812610, 894570642, 89419472100, 1311049104750, 47185076099700, 350440263072900, 4578242813103960, 4119778157653533375, 16476927824724617250, 124478128839848033250, 40326914169455544130500

Offset: 1

Author

Artur Jasinski, Mar 26 2008

Keywords

• nonn

Crossrefs

Cf. A062545, A062546, A085466, A085467, A138729, A138730, A138731, A138732, A138733.

Programs

Mathematica

a = {7}; Do[p = FullSimplify[TrigToExp[ -3 - 2Residue[x^2/((Tan[x] - x) (1 + x^2)^n), {x, I}]]]; AppendTo[a, -First[p[[2]]]], {n, 2, 9}]; a (*Artur Jasinski*)

Extensions

Edited and extended by Max Alekseyev, Sep 15 2009