A159490 Denominator of Bernoulli(n, 1/12).

1, 12, 144, 1728, 103680, 248832, 20901888, 35831808, 2149908480, 5159780352, 681091006464, 743008370688, 4056825703956480, 106993205379072, 1283918464548864, 15407021574586368, 15715162006078095360

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

For numerators see A159489.

Sequence in context: A190132 A267791 A001021 * A245853 A000468 A076728

Adjacent sequences: A159487 A159488 A159489 * A159491 A159492 A159493

Keyword

nonn,frac

Author

N. J. A. Sloane, Nov 08 2009

Status

approved