OFFSET
3,1
COMMENTS
The probability that the four points are coplanar (i.e., lie on the same plane) and do not define a sphere is 0.
LINKS
Amiram Eldar, Table of n, a(n) for n = 3..1002
Fernando Affentranger, Random spheres in a convex body, Archiv der Mathematik, Vol. 55 (1990), pp. 74-81.
FORMULA
f(n) = 4 * n^3 * Pi * Gamma(2*n-1) * Gamma((3*n+5)/2) * Gamma(n/2)^4 / (9 * binomial(3*n+3, 3) * Gamma(3*n/2) * Gamma((n-2)/2) * Gamma(2*n+1) * Gamma((n+1)/2)^3).
Limit_{n->oo} f(n) = Pi/(6*sqrt(3)) = 0.302299... (A381671).
f(n) ~ Pi/(6*sqrt(3))*(1 - 3/(2*n) - 19/(36*n^2) - 67/(72*n^3) + 23/(432*n^4) + ...).
EXAMPLE
Fractions begin with 24*Pi^2/1925, 11/63, 50*Pi^2/2431, 221/1000, 980000*Pi^2/41431533, 7429/30625, 92610*Pi^2/3662497, 56695/222264, 4390848*Pi^2/166966775, 112375/426888, 529056528*Pi^2/19604380625, 156835045/583041888, ...
MATHEMATICA
a[n_] := Numerator[4 * n^3 * Pi * Gamma[2*n-1] * Gamma[(3*n+5)/2] * Gamma[n/2]^4 / (9 * Binomial[3*n+3, 3] * Gamma[3*n/2] * Gamma[(n-2)/2] * Gamma[2*n+1] * Gamma[(n+1)/2]^3)] /. Pi -> 1; Array[a, 24, 3]
PROG
(PARI) gamma_my(n) = if(denominator(n) == 1, (n-1)!, my(m = n - 1/2); (2*m)! / (4^m * m!)); \\ gamma for integers, gamma(n)/sqrt(Pi) for half-integers
a(n) = numerator(4 * n^3 * gamma_my(2*n-1) * gamma_my((3*n+5)/2) * gamma_my(n/2)^4 / (9 * binomial(3*n+3, 3) * gamma_my(3*n/2) * gamma_my((n-2)/2) * gamma_my(2*n+1) * gamma_my((n+1)/2)^3));
CROSSREFS
KEYWORD
nonn,frac,easy
AUTHOR
Amiram Eldar, Apr 16 2026
STATUS
approved
