PVS numbers? http://en.wikipedia.org/wiki/Pisot–Vijayaraghavan_number http://en.wikipedia.org/wiki/Salem_number WFL On 9/11/13, Bill Gosper <billgosper@gmail.com> wrote:
DanA>
When I try to evaluate that exact sum in Mma, it gives me only numbers that are to > 20 decimal places equal to 0. (Adding only 1000 or 10000 terms, asking for 10 digits' precision.)
I'd guess only a set of measure 0 of real numbers x would have their Sum[Round[x^n]-x^n,{n,0,∞}] <> 0.
But it's easy to believe that many algebraic numbers don't.
What's your secret?
--Dan
On 2013-09-10, at 8:11 PM, Bill Gosper wrote:
Let t:=1/3 (1 + (19 - 3 Sqrt[33])^(1/3) + (19 + 3 Sqrt[33])^(1/3)), the tribonacci constant. Then, empirically, Sum[Round[x^n]-x^n,{n,0,∞}]
Gaa, I meant Round[t^n]-t^n (Mac OS crashed as I prepared to send.)
==-0.80851211604688125... -2 + ((3 Sqrt[3] - Sqrt[11])^(1/3) + (3 Sqrt[3] + Sqrt[11])^(1/3))/(2^(2/3) Sqrt[3])
In[2]:= NSum[Round[GoldenRatio^k] - GoldenRatio^k, {k, 288}, NSumTerms -> 288, WorkingPrecision -> 99]
Out[2]= 0.618033988749894848204586834365638117720309179806089199107257598931385927496544945583310480117151672
In[3]:= (% + 1/2)^2
Out[3]= 1.2500000000000000000000000000000000000000000000007297116525363033564609 5964404522000200488900285933
This can't be new. Anybody?
--rwg _______________________________________________ math-fun mailing list math-fun@mailman.xmission.com http://mailman.xmission.com/cgi-bin/mailman/listinfo/math-fun