A159457 Numerator of Bernoulli(n, -8/11).

1, -27, 1033, -2052, 678479, -229140, 90560233, -19683468, 5567648159, -1771863012, 86896568215, -92509892604, 3404530630321949, -27717219294804, 129533862152191, 10789613295377940, 26812970120521435423, -9652659575381477316, -34355113414331425098749

Offset

0,2

Links

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

Mathematica

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

Crossrefs

For denominators see A159189.

Sequence in context: A143366 A143705 A222440 * A290946 A223552 A357228

Adjacent sequences: A159454 A159455 A159456 * A159458 A159459 A159460

Keyword

sign,frac

Author

N. J. A. Sloane, Nov 08 2009

Status

approved