OFFSET
0,2
LINKS
D. H. Lehmer, A new approach to Bernoulli polynomials, The American mathematical monthly 95.10 (1988): 905-911.
FORMULA
T(n,m) = denominator([x^m]Bernoulli(n,x)), n>=0, m=0..n.
E.g.f. of Bernoulli(n,x): z*exp(x*z)/(exp(z)-1).
See the Graham et al. reference given in A196838, eq. (7.80), p. 354.
T(n,m) = denominator(binomial(n,m)*Bernoulli(n-m)). - Fabián Pereyra, Mar 04 2020
EXAMPLE
MAPLE
with(ListTools):with(PolynomialTools):
CoeffList := p -> CoefficientList(p, x):
Trow := n -> denom(CoeffList(bernoulli(n, x))):
Flatten([seq(Trow(n), n = 0..12)]); # Peter Luschny, Apr 10 2021
CROSSREFS
KEYWORD
AUTHOR
Wolfdieter Lang, Oct 23 2011
EXTENSIONS
Name edited by M. F. Hasler, Mar 09 2020
STATUS
approved