A335952 Denominators of the Faulhaber polynomials.

1, 1, 1, 3, 3, 5, 3, 105, 3, 45, 105, 165, 45, 273, 7, 15, 231, 1785, 9, 25935, 105, 3465, 1155, 2415, 315, 16575, 429, 1485, 399, 435, 45, 465465, 2145, 8415, 41055, 525, 1485, 10555545, 57057, 585, 105, 268345, 19635, 18723705, 15015

Offset

0,4

Comments

See A335951 for comments, programs and references.

Links

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

Prog

(Python)
from math import lcm
from sympy import simplify, sqrt, bernoulli
from sympy.abc import x
def A335952(n): return lcm(*(d.q for d in simplify((bernoulli(2*n, (sqrt(8*x+1)+1)/2)-bernoulli(2*n, 1))/(2*n)).as_poly().all_coeffs())) # Chai Wah Wu, May 17 2022

Crossrefs

Cf. A335951 (numerators).

Sequence in context: A363796 A201454 A008316 * A290284 A258802 A358241

Adjacent sequences: A335949 A335950 A335951 * A335953 A335954 A335955

Keyword

nonn,frac

Author

Peter Luschny, Jul 16 2020

Status

approved