A033470 Numerator of Bernoulli(2n,1/3).

1, -1, 13, -121, 1093, -49205, 61203943, -5580127, 25949996501, -2832495743227, 101471818419863, -4469253897850313, 11126033443528968583, -3623473373642099263, 90551915146257709805297, -295654219044074800178128205

Offset

0,3

Links

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

Index entries for sequences related to Bernoulli numbers.

Maple

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

Mathematica

Table[Numerator @ BernoulliB[2*n, 1/3], {n, 0, 15}] (* Amiram Eldar, Sep 16 2020 *)

Prog

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

Crossrefs

Cf. A033471 (denominators).

Sequence in context: A196921 A317483 A096053 * A297594 A326569 A339057

Adjacent sequences: A033467 A033468 A033469 * A033471 A033472 A033473

Keyword

sign,frac

Author

N. J. A. Sloane.

Status

approved