sum[k exp[-0.01 k] cos[0.01 k], {k, 1, 3000}]