There is a simple question where a unit square contains four circles of radius $\frac14$ with a fifth inner circle, and the aim is to find that the radius of the inner circle is $r_2=\frac{\sqrt{2}-1}{4} \approx 0.10355$. Consider the line segment from a vertex passing through the centre of an outer circle to the centre of the square.
Going up a dimension, with a unit cube with eight spheres of radius $\frac14$ and a ninth inner sphere, it is not much harder to find the radius of the inner sphere is $r_3=\frac{\sqrt{3}-1}{4} \approx 0.18301$. And the simple geometry looking at the distance from a vertex of the cube to its centre generalises further: with a unit hypercube with $2^n$ hyperspheres of radius $\frac14$ and an inner hypersphere, the radius of the inner hypersphere is $r_n=\frac{\sqrt{n}-1}{4}$.
For $n=4$ this gives $r_4=\frac14$ so the inner hypersphere is then the same size as the sixteen outer hyperspheres. For $n=9$ it gives $r_9=\frac12$ so the inner hypersphere touches the hypercube.
Counterintuitively, for $n=10$ this gives $r_{10}\approx 0.54057$ so the inner hypersphere goes outside the hypercube which bounds the outer hyperspheres which bound the inner hypersphere, and similarly for larger $n$.
The $n$-volume of the hypercube is $1$. The $n$-volume of the inner $n$-ball is $\frac{\left(\sqrt{\pi}\frac{\sqrt{n}-1}{4}\right)^n}{\Gamma\left(\frac n2+1\right)}$: it is $0$ for $n=1$, about $0.033688$ for $n=2$, then decreasing as $n$ increases to $264$ where it is about $10^{-5}$, and then increases with $n$, exceeding $1$ when $n\ge 1206$ and exceeding $2$ when $n \ge 1244$.
For what dimension $n$ is more than half of the inner $n$-ball outside the hypercube?
Calculating the volumes of the $2n$ hyperspherical caps may not lead to the answer, as it seems that for large enough $n$ (possibly $n\ge 15\gt 9+\sqrt{32} \approx 14.657$ and certainly $n\ge 17$) the hyperspherical caps may overlap each other.
Simulation using the R code below suggests $n\ge 43$ will work, but this is not an analytic answer.
pointinnball <- function(n, r=1){
x <- rnorm(n)
rmsx <- sqrt(sum(x^2))
x * r * runif(1)^(1/n) / rmsx
}
innerradius <- function(n){
(sqrt(n) - 1) / 4
}
pointoutsidecube <- function(n){
max(abs(pointinnball(n, r=innerradius(n)))) > 1/2
}
set.seed(2025)
mean(replicate(10^6, pointoutsidecube(n=42)))
# 0.494222
mean(replicate(10^6, pointoutsidecube(n=43)))
# 0.512103
