OFFSET
1,1
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*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Mar 26 2008
EXTENSIONS
Edited and extended by Max Alekseyev, Sep 15 2009
STATUS
approved