OFFSET
0,1
COMMENTS
EXAMPLE
-0.8267323144...
MATHEMATICA
Select[NSolve[Sum[x^Prime[n + 1], {n, 0, (*arb*)250}] == x, x, (*arb*)80], Element[ #[[1]][[2]], Reals] && Negative[ #[[1]][[2]]] &][[1]][[1]][[2]]
PROG
(PARI) default(realprecision, 180); solve(x=-0.83, -0.82, sum(i=0, 400, x^(prime(i+1)))-x) \\ Robert Gerbicz, May 08 2008
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Joseph Biberstine (jrbibers(AT)indiana.edu), Jun 10 2006
EXTENSIONS
More terms from Robert Gerbicz, May 08 2008
Corrected by Arkadiusz Wesolowski, Aug 17 2011
STATUS
approved