|
|
A049330
|
|
Numerator of (1/Pi)*Integral_{x=0..infinity} (sin(x)/x)^n dx.
|
|
6
|
|
|
1, 1, 3, 1, 115, 11, 5887, 151, 259723, 15619, 381773117, 655177, 20646903199, 27085381, 467168310097, 2330931341, 75920439315929441, 12157712239, 5278968781483042969, 37307713155613, 9093099984535515162569, 339781108897078469, 168702835448329388944396777
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
1/2, 1/2, 3/8, 1/3, 115/384, 11/40, ...
|
|
MATHEMATICA
|
Numerator[Table[Integrate[(Sin[x]/x)^n, {x, 0, \[Infinity]}]/Pi, {n, 25}]] (* Harvey P. Dale, Jan 01 2013 *)
Numerator@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) [Numerator( (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) [numerator( (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
|
|
|
|