A335952 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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