A033471 Denominator of Bernoulli(2n,1/3).

1, 18, 810, 10206, 65610, 1299078, 483611310, 9565938, 7317942570, 103053850074, 383546284110, 1443528742014, 257010878197710, 5083731656658, 6634269811938690, 982924264619854326, 315013432104812970

Offset

0,2

Links

Table of n, a(n) for n=0..16.

Index entries for sequences related to Bernoulli numbers.

Maple

with(numtheory): seq(denom(bernoulli(2*n, 1/3)), n=0..20);

Mathematica

Denominator/@BernoulliB[2Range[0, 20], 1/3] (* Harvey P. Dale, May 11 2011 *)

Prog

(PARI) a(n) = denominator(subst(bernpol(2*n), x, 1/3)); \\ Michel Marcus, Sep 16 2020

Crossrefs

Cf. A033470 (numerators).

Sequence in context: A180781 A264468 A303991 * A128074 A049655 A145615

Adjacent sequences: A033468 A033469 A033470 * A033472 A033473 A033474

Keyword

nonn,frac

Author

N. J. A. Sloane.

Status

approved