login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A215608 Decimal expansion of the "value" -Sum_{n>=1} (-1)^n / n^(1/n). 0
6, 3, 7, 0, 9, 2, 0, 8, 5, 8, 9, 8, 4, 9, 4, 7, 4, 7, 9, 1, 1, 2, 5, 5, 6, 0, 8, 1, 7, 1, 2, 8, 4, 5, 1, 5, 5, 4, 4, 0, 1, 8, 3, 1, 4, 0, 1, 5, 9, 6, 0, 4, 6, 7, 2, 3, 8, 7, 8, 0, 0, 0, 6, 5, 8, 2, 2, 1, 5 (list; constant; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

The sum actually diverges. But by Cohen Villegas Zagier's acceleration methods for alternating series the sum converges to 0.637092...

Challenge: find a convergent expression for this constant. [Joerg Arndt, Aug 19 2012]

LINKS

Table of n, a(n) for n=0..68.

Henri Cohen, Fernando Rodriguez Villegas, Don Zagier, Convergence acceleration of alternating series, Experimental Mathematics, vol.9, no.1, pp.3-12, (2000).

EXAMPLE

0.637092085898494747911255608171284515544018314015960467238780006582215...

MATHEMATICA

digits = 69; a[n_] := 1/n^(1/n); a[0] = 0; Clear[f]; f[n_] := f[n] = (d = (3+Sqrt[8])^n; d = (d+1/d)/2; b = 1; c = d; s = 0; For[k = 0, k <= n-1, k++, c = b-c; s = s+c*a[k]; b = (k+n)*(k-n)*b / ((k+1/2)*(k+1))]; s/d) // RealDigits[#, 10, digits] & // First; f[0] ; f[n = 10] ; While[f[n] != f[n-10], n = n+10]; f[n] (* Jean-François Alcover, Mar 06 2013 *)

digits = 69; a[n_] := 1/n^(1/n); a[0] = 0; Clear[f]; f[n_] := f[n] = (d = (3+Sqrt[8])^n; d = (d+1/d)/2; b = 1; c = d; s = 0; For[k = 0, k <= n-1, k++, c = b-c; s = s+c*a[k]; b = (k+n)*(k-n)*b / ((k+1/2)*(k+1))]; s/d) // RealDigits[#, 10, digits] & // First; f[0] ; f[n = 10] ; While[ f[n] != f[n-10], n = n+10]; f[n] (* Jean-François Alcover, Mar 06 2013 *)

PROG

(PARI)

default(realprecision, 99);

c=-sumalt(n=1, (-1)^n/sqrtn(n, n)) /* 0.6370920858... */

v=Vec(Str(c)); /* ["0", ".", "6", "3", "7", ...] */

v=vector(#v-1, n, v[n+1]);  v[1]=0;

v215608=eval(v) /* sequence of digits */

/* Joerg Arndt, Aug 19 2012 */

CROSSREFS

Cf. A073009.

Sequence in context: A024563 A319232 A265179 * A232883 A119643 A187747

Adjacent sequences:  A215605 A215606 A215607 * A215609 A215610 A215611

KEYWORD

cons,nonn

AUTHOR

Balarka Sen, Aug 17 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 24 13:24 EST 2020. Contains 331193 sequences. (Running on oeis4.)