|
%I #11 Sep 08 2022 08:45:43
%S 1,-31,1381,-3255,1308359,-552265,278675461,-76721435,26220063119,
%T -9960825357,669913045555,-1189545126175,34211841785600789,
%U -152774070278609,11476191574748467,-10209965252448675,-50055398850117166337,-7113615137036531221
%N Numerator of Bernoulli(n, -10/11).
%H Vincenzo Librandi, <a href="/A159487/b159487.txt">Table of n, a(n) for n = 0..250</a>
%t Table[Numerator[BernoulliB[n, -10/11]], {n, 0, 50}] (* _Vincenzo Librandi_, Mar 17 2014 *)
%o (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
%o (PARI) a(n) = numerator(subst(bernpol(n, x), x, -10/11)); \\ _Michel Marcus_, Jul 10 2018
%o (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
%Y For denominators see A159189.
%K sign,frac
%O 0,2
%A _N. J. A. Sloane_, Nov 08 2009
|
