A159479 Numerator of Bernoulli(n, -9/11).

1, -29, 1201, -2610, 957359, -364530, 164387161, -40455870, 12538929119, -4363782714, 260582566855, -387500179350, 10408159409945789, -56830633987218, 3452786092345807, 6808080496813650, -50558539454655946337, -9168876820065422442, 103952495666585167545907

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..250

Mathematica

Table[Numerator[BernoulliB[n, -9/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)*(-9/11)^k)), ", ")) \\ G. C. Greubel, Jul 09 2018
(PARI) a(n) = numerator(subst(bernpol(n, x), x, -9/11)); \\ Michel Marcus, Jul 10 2018
(Magma) [Numerator((&+[Binomial(n, k)*Bernoulli(n-k)*(-9/11)^k: k in [0..n]])): n in [0..30]]; // G. C. Greubel, Jul 09 2018
(GAP) List(List([0..20], n->Sum([0..n], k->Binomial(n, k)*Bernoulli(n-k)*(-9/11)^k)), NumeratorRat); # Muniru A Asiru, Jul 12 2018

Crossrefs

For denominators see A159189.

Sequence in context: A268461 A025761 A003735 * A264351 A195740 A139192

Adjacent sequences: A159476 A159477 A159478 * A159480 A159481 A159482

Keyword

sign,frac

Author

N. J. A. Sloane, Nov 08 2009

Status

approved