A336454 a(n) = denominator(2^n*Sum_{k=0..n} binomial(n, k)*Bernoulli(k, 1/2)*x^(n-k)).

1, 1, 3, 1, 15, 3, 21, 3, 15, 5, 33, 3, 1365, 105, 15, 3, 255, 15, 1995, 105, 1155, 165, 345, 15, 1365, 273, 21, 7, 435, 15, 7161, 231, 19635, 1785, 105, 3, 959595, 25935, 1365, 105, 47355, 1155, 49665, 1155, 2415, 2415, 4935, 105, 23205, 3315, 7293, 429, 8745

Offset

0,3

Links

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

Maple

Bcp := n -> 2^n*add(binomial(n, k)*bernoulli(k, 1/2)*x^(n-k), k=0..n):
a := n -> denom(Bcp(n)): seq(a(n), n=0..52);

Crossrefs

Cf. A336517/A285865 (coefficients of polynomials).

Sequence in context: A134145 A134146 A085569 * A261671 A198148 A286674

Adjacent sequences: A336451 A336452 A336453 * A336455 A336456 A336457

Keyword

nonn,frac

Author

Peter Luschny, Jul 24 2020

Status

approved