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

Author

Peter Luschny, Jul 24 2020

Keywords

• nonn
• frac

Crossrefs

Cf. A336517/A285865 (coefficients of polynomials).

Programs

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);