OFFSET
1,4
COMMENTS
Also, decimal expansion of the imaginary part of Sum_{k>=1} e^(i*k)/k^2. [Bruno Berselli, Mar 24 2013]
LINKS
I. Rosenholtz, Tangent sequences, world records, ..., Math. Mag., 72 (No. 5, 1999), 367-376.
EXAMPLE
1.013959132360768504294574338885914687561179280077717316877048512268137...
MATHEMATICA
$MaxExtraPrecision = 128; RealDigits[ Chop[ N[ I/2*(PolyLog[2, E^-I] - PolyLog[2, E^I]), 105]]][[1]] (* Robert G. Wilson v, Aug 16 2004 *)
PROG
(PARI) imag(polylog(2, exp(I))) \\ Charles R Greathouse IV, Jul 14 2014
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
N. J. A. Sloane, Aug 16 2004
EXTENSIONS
More terms from Robert G. Wilson v, Aug 17 2004
Sequence checked by T. D. Noe, Aug 21 2006
STATUS
approved