Divergent Series

Author

Eric W. Weisstein
April 14, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Algebra/DivergentSeries.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/DivergentSeries.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Before loading SymbolicSum`

Sum[Log[k],{k,∞}]

Sum[k,{k,∞}]

Sum[1/k,{k,∞}]

Sum[Log[k]/k,{k,∞}]

After loading SymbolicSum`

SymbolicSum`SymbolicSum[Log[n+k],{k,∞},GenerateConditions->False]

Sum[Log[k],{k,∞}]

Sum[1/k,{k,∞}]

Table[Sum[k^n,{k,∞}],{n,1,15,2}]

Table[BernoulliB[n+1]/(n+1),{n,1,15,2}]

Sum[Log[k]/k,{k,∞}]