OFFSET
0,1
COMMENTS
FORMULA
MATHEMATICA
b[n_] = BernoulliB[n]; b[0] = 1/2; b[1] = 1;
a[n_] := Sum[(-1)^(n - k)*Binomial[n, k]*b[k], {k, 0, m}] // Denominator;
Table[a[n], {n, 0, 55}] (* Jean-François Alcover, Jun 04 2019 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Paul Curtz, Jun 04 2019
STATUS
approved