|
|
A068214
|
|
Numerator of Borwein integral of order 2n+1.
|
|
6
|
|
|
1, 1, 1, 1, 1, 1, 1, 467807924713440738696537864469, 17708695183056190642497315530628422295569865119, 8096799621940897567828686854312535486311061114550605367511653, 2051563935160591194337436768610392837217226815379395891838337765936509
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,8
|
|
COMMENTS
|
The numerator of (2/Pi)*Integrate[Product[Sinc[x/k], {k, 1, 2*n - 1, 2}], {x, 0, Infinity}]: Using Mathematica 7.0, we have:
In[6]:= Table[2/Pi*Integrate[Product[Sinc[x/k], {k, 1, 2*n - 1, 2}], {x, 0, Infinity}], {n, 8}]
Out[6]= {1, 1, 1, 1, 1, 1, 1, 467807924713440738696537864469/467807924720320453655260875000 }.
The denominators of this sequence are given in A144616.
The last term is 1 - 491^7 / (2^3 3^12 5^6 7^7 11^6 13^6). (End)
|
|
LINKS
|
|
|
MATHEMATICA
|
i[n_] := Times@@(Sin[x/# ]&/@Range[1, n, 2])/x^((n+1)/2)/Pi; Numerator[Table[Integrate[i[n], {x, 0, Infinity}], {n, 1, 19, 2}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac,changed
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|