OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..250
MATHEMATICA
Table[Numerator[BernoulliB[n, -10/11]], {n, 0, 50}] (* Vincenzo Librandi, Mar 17 2014 *)
PROG
(PARI) for(n=0, 30, print1(numerator(sum(k=0, n, binomial(n, k)* bernfrac(n-k)*(-10/11)^k)), ", ")) \\ G. C. Greubel, Jul 09 2018
(PARI) a(n) = numerator(subst(bernpol(n, x), x, -10/11)); \\ Michel Marcus, Jul 10 2018
(Magma) [Numerator((&+[Binomial(n, k)*Bernoulli(n-k)*(-10/11)^k: k in [0..n]])): n in [0..30]]; // G. C. Greubel, Jul 09 2018
CROSSREFS
KEYWORD
sign,frac
AUTHOR
N. J. A. Sloane, Nov 08 2009
STATUS
approved