|
|
A049331
|
|
Denominator of (1/Pi)*Integral_{0..oo} (sin x / x)^n dx.
|
|
5
|
|
|
2, 2, 8, 3, 384, 40, 23040, 630, 1146880, 72576, 1857945600, 3326400, 108999475200, 148262400, 2645053931520, 13621608000, 457065319366656000, 75277762560, 33566877054287216640, 243290200817664
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
1/2, 1/2, 3/8, 1/3, 115/384, 11/40, ...
|
|
MATHEMATICA
|
Table[ 1/Pi*Integrate[Sinc[x]^n, {x, 0, Infinity}] // Denominator, {n, 1, 20}] (* Jean-François Alcover, Dec 02 2013 *)
Denominator@Table[Sum[(-1)^k (n-2k)^(n-1) Binomial[n, k], {k, 0, n/2}]/((n-1)! 2^n), {n, 1, 30}] (* Vladimir Reshetnikov, Sep 02 2016 *)
|
|
PROG
|
(Magma) [Denominator( (1/(2^n*Factorial(n-1)))*(&+[(-1)^j*Binomial(n, j)*(n-2*j)^(n-1): j in [0..Floor(n/2)]]) ): n in [1..25]]; // G. C. Greubel, Apr 01 2022
(Sage) [denominator( (1/(2^n*factorial(n-1)))*sum((-1)^j*binomial(n, j)*(n-2*j)^(n-1) for j in (0..(n//2))) ) for n in (1..25)] # G. C. Greubel, Apr 01 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac,easy,nice
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|