A099872 Decimal expansion of Sum_{n>=1} ((-1)^(n+1))/(n^log(n)).

5, 8, 3, 3, 0, 2, 3, 2, 8, 1, 7, 8, 3, 1, 6, 1, 4, 5, 1, 6, 3, 8, 8, 7, 4, 7, 5, 7, 8, 4, 1, 5, 3, 3, 5, 9, 2, 6, 0, 1, 0, 0, 5, 5, 8, 7, 8, 7, 0, 2, 8, 6, 4, 4, 0, 2, 3, 7, 1, 2, 3, 2, 6, 4, 4, 0, 2, 3, 4, 7, 2, 9, 9, 8, 7, 5, 9, 5, 9, 0, 2, 3, 2, 1, 2, 5, 6, 2, 4, 9, 5, 5, 6, 5, 7, 4, 2, 8, 7, 6, 7, 7, 3, 6, 0

Offset

0,1

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Example

0.58330232817831614516388747578415335926010055878702864402371232644...

Maple

evalf(Sum(((-1)^(n+1))/(n^log(n)), n=1..infinity), 120); # Vaclav Kotesovec, Mar 01 2016

Mathematica

RealDigits[ NSum[ -(-1)^n/n^Log[n], {n, Infinity}, AccuracyGoal -> 2^10, Compiled -> True, WorkingPrecision -> 2^10, NSumExtraTerms -> 256, NSumTerms -> 512], 10, 111][[1]] (* Robert G. Wilson v, Dec 21 2004 *)

Prog

(PARI) sumalt(n=1, ((-1)^(n+1))/(n^log(n)))
(Magma) SetDefaultRealField(RealField(100)); [(&+[(-1)^(k+1)/k^Log(k): k in [1..1000]])]; // G. C. Greubel, Nov 20 2018
(Sage) numerical_approx(sum((-1)^(k+1)/k^log(k) for k in [1..1000]), digits=100)

Crossrefs

Sequence in context: A010489 A196567 A200685 * A097908 A198612 A019907

Adjacent sequences: A099869 A099870 A099871 * A099873 A099874 A099875

Keyword

cons,easy,nonn

Author

Mark Hudson (mrmarkhudson(AT)hotmail.com), Nov 02 2004

Status

approved