OFFSET
0,2
LINKS
Harvey P. Dale,Table of n, a(n) for n = 0..900
MATHEMATICA
Denominator[BernoulliB[Range[0, 30], 1/12]] (*Harvey P. Dale,Oct 09 2011 *)
PROG
(PARI) for(n=0, 30, print1(denominator(sum(k=0, n, binomial(n, k)* bernfrac(n-k)*(1/12)^k)), "," )) \\G. C. Greubel,Jul 09 2018
(PARI) a(n) = denominator(subst(bernpol(n, x), x, 1/12)); \\Michel Marcus,Jul 10 2018
(Magma) [Denominator((&+[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
nonn,frac
AUTHOR
N. J. A. Sloane,Nov 08 2009
STATUS
approved