OFFSET
1,1
LINKS
John Moeller, Reasoning in Higher Dimensions: Hyperspheres, onTopology Blog, 3 March 2009.
FORMULA
a(n) >= 6.2835n^2 - 0.009903n - 0.9212 is a lower bound on the real value of the dimension.
MAPLE
N:= 10^5: # to get all terms <= N
G[1]:= 2/Pi:
G[2]:= 3/4:
L[2]:= 0:
for n from 3 to N do
G[n]:= G[n-2]*(n+1)/n;
L[n]:= floor(G[n]);
if L[n] <> L[n-1] then
A[L[n]]:= n
fi
od:
seq(A[i], i=1..L[N]); # Robert Israel, Jan 05 2016
MATHEMATICA
vol[n_, r_]:=If[IntegerQ[n/2], (Pi^(n/2)*r^n)/(n/2)!, (Pi^((n-1)/2)*((n+1)/2)!*2^(n+1)*r^n)/(n+1)!];
dim[r_]:=Block[{d=1}, While[vol[d, r]<vol[d+1, r], d++]; d];
dim/@Range@30 (* Ivan N. Ianakiev, Dec 27 2015 *)
PROG
(PARI) V(d, r)=Pi^(d/2)*r^d/gamma(d/2+1)
a(n)=my(d=ceil(6.2835*n^2-0.009903*n-0.9212)); while(V(d, n)<V(d-1, n), d--); while(V(d, n)<V(d+1, n), d++); d \\ Charles R Greathouse IV, Mar 06 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Sergio Falcon, Oct 10 2007
STATUS
approved