|
%I #24 Mar 05 2020 03:58:53
%S 2,4,8,14,23,36,52,72,93,116,138,158,174,185,191,191,186,176,162,146,
%T 128,110,93,77,62,49,38,29,22,16,12,8,6,4,2,2,1,0,0,0,0,0,0,0,0,0,0,0,
%U 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
%N Floor of the volume of the d-th Chern-Vaaler star body.
%C Unimodal: increases from 2 to a maximum of 191, then decreases to 0 = a(d) for d >= 38 (see Grizzard and Gunther, 2016, Lemma 2.2). See A286523 for other comments, references, links, formulas, and programs. For the "monic slice" of the star body, see A288756, A288757, A288758.
%H Robert Grizzard and Joseph Gunther, <a href="https://arxiv.org/abs/1609.08720">Slicing the stars: counting algebraic numbers, integers, and units by degree and height</a>, arXiv:1609.08720 [math.NT] 2016.
%F a(n) = floor(A286523(n) / A286524(n)).
%t a[d_] := (e = Floor[(d-1)/2]; 2^(d+1) (d+1)^e Product[(2k)^(d-2k)/(2k+1)^( d+1-2k), {k, 1, e}]) // Floor;
%t Table[a[d], {d, 0, 39}] (* _Jean-François Alcover_, Dec 04 2018, after _Jonathan Sondow_ in A286523 *)
%o (PARI) a(n) = floor(2^(n+1)*(n+1)^((n-1)\2)*prod(k=1, (n-1)\2, (2*k)^(n-2*k)/(2*k+1)^(n+1-2*k))); \\ _Jinyuan Wang_, Mar 05 2020
%Y Cf. A286523, A286524, A288756, A288757, A288758.
%K nonn
%O 0,1
%A _Jonathan Sondow_, May 26 2017
%E More terms from _Jinyuan Wang_, Mar 05 2020
|
