Let us consider the following integral Bn=∫∞0n∏k=1,3,5,…sin(x/k)x/kdx
By definition, Sinc[x] == Sin[x]/x
, therefore
B[n_?OddQ] := Integrate[Product[Sinc[x/k], {k, 1, n, 2}], {x, 0, Infinity}]
B /@ Range[1, 13, 2]
{Pi/2, Pi/2, Pi/2, Pi/2, Pi/2, Pi/2, Pi/2}
OK, everything is fine. But...
B[15]
467807924713440738696537864469 Pi/935615849440640907310521750000
What's going on?
Answer
As Eckhard wrote in comments B[n]
is the n-th Borwein integral.
(The letter B
was not accidental :) )
This funny properties of Borwein integrals is related to the Fourier transform of Sinc
function
FourierTransform[Sinc[x], x, k]
1/2 Sqrt[Pi/2] (Sign[1 - k] + Sign[1 + k])
Plot[%, {k, -2, 2}, Filling -> 0]
which is the box function. The result is π/2 while the sum 1/3+1/5+⋯+1/n<1.
Bn=π2−π(n∑k=3,5,…1k−1)n−12n∏k=3,5,…kk−1.
For n=15 it is equal to
467807924713440738696537864469935615849440640907310521750000π.
As a prank, Jonathan Borwein reported this to Maple, claiming there was a bug in the software. Maple computer scientist Jacques Carette spent 3 days trying to figure out the problem. Then he realized: There was no bug! That's what these integrals really equal!
The Borwein brothers are the same guys who noticed that the integral
∫∞0cos(2x)cos(x)cos(x/2)cos(x/3)cos(x/4)…dx
matches π/8 up to 43 decimal places, but is not equal to π/8. So you've got to be careful with these guys!
Comments
Post a Comment