A159487 Numerator of Bernoulli(n, -10/11).

1, -31, 1381, -3255, 1308359, -552265, 278675461, -76721435, 26220063119, -9960825357, 669913045555, -1189545126175, 34211841785600789, -152774070278609, 11476191574748467, -10209965252448675, -50055398850117166337, -7113615137036531221

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

For denominators see A159189.

Sequence in context: A069406 A234115 A057008 * A130661 A187701 A185512

Adjacent sequences: A159484 A159485 A159486 * A159488 A159489 A159490

Keyword

sign,frac

Author

N. J. A. Sloane, Nov 08 2009

Status

approved