|
|
A159489
|
|
Numerator of Bernoulli(n, 1/12).
|
|
2
|
|
|
1, -5, 13, 55, -2851, -3245, 427363, 473935, -61949131, -123108821, 44665749215, 49265523175, -889173917551201, -28014998053757, 1297189933409461, 21455729885490175, -96521711874559753547, -21286177612465196453, 168569517408863607520801
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Numerator[BernoulliB[Range[0, 30], 1/12]] (* Harvey P. Dale, Oct 22 2011 *)
|
|
PROG
|
(PARI) for(n=0, 30, print1(numerator(sum(k=0, n, binomial(n, k)* bernfrac(n-k)*(1/12)^k)), ", ")) \\ G. C. Greubel, Jul 09 2018
(PARI) a(n) = numerator(subst(bernpol(n, x), x, 1/12)); \\ Michel Marcus, Jul 10 2018
(Magma) [Numerator((&+[Binomial(n, k)*Bernoulli(n-k)*(1/12)^k: k in [0..n]])): n in [0..30]]; // G. C. Greubel, Jul 09 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|