A366570 a(n) = numerator(denominator(Bernoulli'(n, x)) / denominator(Bernoulli(n, 1))).

1, 1, 1, 2, 1, 6, 1, 6, 1, 10, 1, 6, 1, 210, 5, 2, 1, 30, 5, 210, 7, 110, 5, 30, 1, 546, 7, 14, 1, 30, 1, 462, 77, 1190, 35, 6, 1, 51870, 455, 70, 7, 2310, 55, 2310, 7, 322, 35, 210, 1, 6630, 221, 286, 11, 330, 55, 798, 19, 290, 5, 30, 1, 930930, 5005, 1430

Offset

0,4

Links

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

Formula

a(n) = numerator(A324370(n) / A027642(n)).

Maple

seq(numer(denom(diff(bernoulli(n, x), x))/denom(bernoulli(n, 1))), n = 0..66);

Prog

(PARI) a(n) = numerator(lcm(apply(denominator, Vec(deriv(bernpol(n)))))/denominator(subst(bernpol(n, x), x, 1))); \\ Michel Marcus, Oct 14 2023

Crossrefs

Cf. A324370/A027642, A366152 (denominator), A366426/A366427 (2nd derivative).

Sequence in context: A088123 A050932 A366573 * A286515 A166120 A318256

Adjacent sequences: A366567 A366568 A366569 * A366571 A366572 A366573

Keyword

nonn,frac

Author

Peter Luschny, Oct 13 2023

Status

approved