OFFSET
0,1
COMMENTS
EXAMPLE
0.55785865376795666357725966112536889754852239689...
MAPLE
Digits := 160 ; nmax := 3*Digits ; fx := -x; p := 2; while p < nmax do fx := fx + x^p ; p := nextprime(p) ; od: fxp := diff(fx, x) ; y := 0.557 ; for i from 1 to 100 do y := y-eval(fx, x=y)/eval(fxp, x=y) ; printf("%.120f\n", y) ; od: # R. J. Mathar, May 19 2009
MATHEMATICA
Select[NSolve[Sum[x^Prime[n + 1], {n, 0, (*arb*)250}] == x, x, (*arb*)80], Element[ #[[1]][[2]], Reals] && Positive[ #[[1]][[2]]] &][[1]][[1]][[2]]
CROSSREFS
KEYWORD
AUTHOR
Joseph Biberstine (jrbibers(AT)indiana.edu), Jun 10 2006
EXTENSIONS
More digits from R. J. Mathar, May 19 2009
STATUS
approved