This is my code so far:
For[i=2, i<10, i++, Solve[x^i == x+1 && x >0]]
I would like to sum up all the x values that it outputs. How can I do so?
$\begingroup$
$\endgroup$
2
1 Answer
$\begingroup$
$\endgroup$
2
Quick answer
Total@Table[ x /. Solve[x^i == x + 1 && x > 0][[1]] , {i, 2, 9}]//N
(*9.76035*)
answered Dec 23, 2019 at 21:23
-
$\begingroup$ I ran the program by the way. It computes all the numbers positive numbers x s.t. x^n = x+1. Numbers like 1.618, 1.3247, 1.2207, etc. Its a sequence approaching 1 in the limit. Then I added all the decimal parts: .618 + .3247 + .2207 etc and found that it was divergent. Then I took the first 1000 sums and compared it to the first 10000 sums and I found a constant ratio of 1.596. Is there a concept for this? The ratio of divergent sums computed at logarithmic intervals. $\endgroup$ Commented Dec 24, 2019 at 2:43
-
1$\begingroup$ +1, also:
Sum[x /. Solve[x^i == x + 1 && x > 0][[1]], {i, 2, 9}] // N$\endgroup$– WReachCommented Dec 24, 2019 at 6:38
Total@Table[x /. First@NSolve[x^i == x + 1 && x > 0], {i, 2, 9}]$\endgroup$