|
|
A160694
|
|
Denominator of the 2n-th raw moment for distribution of distances between two points picked at random in the interior of a unit cube.
|
|
2
|
|
|
1, 2, 30, 630, 525, 13860, 6306300, 36036, 11486475, 18517590, 18828810, 3346393050, 80608703175, 93699005400, 5822723907000, 397109770457400, 99444576356125, 933643660950, 17930761819220250, 1669666080332250, 2151484006370985, 27754143682185706500
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
EXAMPLE
|
1, 1/2, 11/30, 211/630, 187/525, 5899/13860, 3524083/6306300, 28603/36036, ...
|
|
MATHEMATICA
|
p[x_] := Piecewise[ {{-x^2*((x - 8)*x^2 + (6*x - 4)*Pi), 0 <= x <= 1}, {2*x*((x^2 - 8*Sqrt[x^2 - 1] + 3)*x^2 + 12*ArcSec[x]*x^2 + Pi*(3 - 4*x) - 4*Sqrt[x^2 - 1] - 1/2), 1 < x <= Sqrt[2]}, {x*((-x^2 + 8*Sqrt[x^2 - 2] + 6*Pi - 5)* (x^2 + 1) - 16*x*ArcCsc[Sqrt[2 - 2/x^2]] - 24*(x^2 + 1)*ArcTan[Sqrt[x^2 - 2]] + 16*x*ArcTan[x*Sqrt[x^2 - 2]]), Sqrt[2] < x < Sqrt[3]}}]; a[n_] := Integrate[x^(2n)*p[x], {x, 0, Sqrt[3]}]; Table[a[n], {n, 0, 9}] // Denominator (* Jean-François Alcover, Dec 26 2012, after Eric W. Weisstein *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|