OFFSET
1,2
LINKS
Lars Blomberg, Table of n, a(n) for n = 1..25
Christian Günther, Kai-Uwe Schmidt, L^q norms of Fekete and related polynomials, arXiv:1602.01750 [math.NT], 2016
EXAMPLE
1/1, 5/3, 19/5, 3469/315, 21565/567, 7760593/51975, 12478099/19305, 643983856759/212837625,
MATHEMATICA
(* "gen" stands for "generalized Eulerian number" *)
gen[n_, x_] := Sum[(-1)^j Binomial[n + 1, j] (x + 1 - j)^n, {j, 0, Floor[x + 1]}];
T[k_] := T[k] = 1 - Sum[Binomial[2 k - 1, 2 j - 1] T[j], {j, 1, k - 1}];
F[0, 0] = 1; F[k_, m_] /; 1 <= m <= 2 k - 1 := F[k, m] = Sum[Binomial[2 k - 1, 2 j - 1] T[j]/(2 j - 1)! Sum[gen[2 j - 1, i - 1] F[k - j, m - i], {i, 0, m}], {j, 1, k}]; F[_, _] = 0;
Table[F[k, k] // Denominator, {k, 1, 18}] (* Jean-François Alcover, Sep 06 2018 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
N. J. A. Sloane, Dec 28 2016
EXTENSIONS
More terms from Lars Blomberg, Jun 14 2017
STATUS
approved