OFFSET
1,4
LINKS
Eric Weisstein's World of Mathematics, Infinite Series
EXAMPLE
{-1 + e^2, -1 - 4*e^2 + e^4, -3 - 7*e^2 - 17*e^4 + 3*e^6}
MATHEMATICA
q = FullSimplify[ TrigToExp[ Table[ (Sum[ 1/(1 + (k + 1/2)^2*Pi^2)^n, {k, Infinity} ] + 4^n/(4 + Pi^2)^n)*(n - 1)!*2^n*(E^2 + 1)^n, {n, 8} ] ] ]; Flatten[ Reverse/@(CoefficientList[ #, E^2 ]&/@q) ]
CROSSREFS
KEYWORD
sign,tabl
AUTHOR
Eric W. Weisstein, Jul 01 2003
STATUS
approved