login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A285482
Smallest k such that A285481(k) >= n, i.e., lowest d where the smallest integer radius needed for a d-dimensional ball to have a volume >= 1 is at least n.
1
1, 13, 63, 148, 267, 420, 608, 829, 1085, 1376, 1700, 2058, 2451, 2878, 3339, 3834, 4363, 4927, 5524, 6156, 6822, 7522, 8257, 9025, 9828, 10665, 11536, 12441, 13380, 14354, 15361, 16403, 17479, 18589, 19733, 20912, 22124, 23371, 24652, 25967, 27316, 28700
OFFSET
1,2
EXAMPLE
For n = 3: a 63-ball of radius 2 has a volume of 0.91035..., while a 63-ball of radius 3 has a volume of 112969101106.64166... Since 63 is the least number of dimensions where a ball with unit volume has a radius >= 3, a(3) = 63.
MATHEMATICA
a[1]=1; a[n_]:=a[n] = Block[{k = a[n-1]}, While[Ceiling[(Pi^(-k/2) Gamma[1 + k/2])^(1/k)] < n, k++]; k]; Array[a, 20] (* Giovanni Resta, Apr 29 2017 *)
PROG
(PARI) volume(n, r) = ((Pi^(n/2))/(gamma(1+n/2)))*r^n
a285481(n) = my(k=1); while(1, if(volume(n, k) >= 1, return(k)); k++)
a(n) = my(k=1); while(1, if(a285481(k) >= n, return(k)); k++)
CROSSREFS
Cf. A285481.
Sequence in context: A212108 A213843 A031074 * A175109 A265038 A051878
KEYWORD
nonn
AUTHOR
Felix Fröhlich, Apr 28 2017
EXTENSIONS
a(36)-a(42) from Giovanni Resta, Apr 29 2017
STATUS
approved