A157800 Denominator of Bernoulli(n, 1/3).

1, 6, 18, 27, 810, 243, 10206, 2187, 65610, 19683, 1299078, 177147, 483611310, 1594323, 9565938, 14348907, 7317942570, 129140163, 103053850074, 1162261467, 383546284110, 10460353203, 1443528742014, 94143178827, 257010878197710

Offset: 0

Author

N. J. A. Sloane, Nov 08 2009

Keywords

• nonn
• frac

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..250

Crossrefs

For numerators see A157799.

Programs

Mathematica

Denominator[BernoulliB[Range[0,30],1/3]] (* Harvey P. Dale, Nov 17 2012 *)

PARI

a(n) = my(x=1/3); denominator(eval(bernpol(n))); \\ Ruud H.G. van Tol, May 10 2024

Python

from sympy import bernoulli, Integer
def a(n): return bernoulli(n, 1/Integer(3)).denominator # Indranil Ghosh, May 01 2017