login
A335952
Denominators of the Faulhaber polynomials.
3
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.
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
KEYWORD
nonn,frac
AUTHOR
Peter Luschny, Jul 16 2020
STATUS
approved