|
|
A053383
|
|
Triangle T(n,k) giving denominator of coefficient of x^(n-k) in Bernoulli polynomial B(n, x), n >= 0, 0 <= k <= n.
|
|
24
|
|
|
1, 1, 2, 1, 1, 6, 1, 2, 2, 1, 1, 1, 1, 1, 30, 1, 2, 3, 1, 6, 1, 1, 1, 2, 1, 2, 1, 42, 1, 2, 2, 1, 6, 1, 6, 1, 1, 1, 3, 1, 3, 1, 3, 1, 30, 1, 2, 1, 1, 5, 1, 1, 1, 10, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 66, 1, 2, 6, 1, 1, 1, 1, 1, 2, 1, 6, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2730, 1, 2, 1, 1, 6, 1, 7, 1, 10, 1, 3, 1, 210, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
REFERENCES
|
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 809.
L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 48, [14a].
M. Kauers and P. Paule, The Concrete Tetrahedron, Springer 2011, p. 53.
H. Rademacher, Topics in Analytic Number Theory, Springer, 1973, Chap. 1.
|
|
LINKS
|
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
|
|
EXAMPLE
|
The polynomials B(0,x), B(1,x), B(2,x), ... are 1; x - 1/2; x^2 - x + 1/6; x^3 - (3/2)*x^2 + (1/2)*x; x^4 - 2*x^3 + x^2 - 1/30; x^5 - (5/2)*x^4 + (5/3)*x^3 - (1/6)*x; x^6 - 3*x^5 + (5/2)*x^4 - (1/2)*x^2 + 1/42; ...
1;
1, -1/2;
1, -1, 1/6;
1, -3/2, 1/2, 0;
1, -2, 1, 0, -1/30;
1, -5/2, 5/3, 0, -1/6, 0;
1, -3, 5/2, 0, -1/2, 0, 1/42;
...
1;
-1/2, 1;
1/6, -1, 1;
0, 1/2, -3/2, 1;
-1/30, 0, 1, -2, 1;
0, -1/6, 0, 5/3, -5/2, 1;
1/42, 0, -1/2, 0, 5/2, -3, 1;
...
|
|
MAPLE
|
with(ListTools): with(PolynomialTools):
CoeffList := p -> Reverse(CoefficientList(p, x)):
Trow := n -> denom(CoeffList(bernoulli(n, x))):
|
|
MATHEMATICA
|
t[n_, k_] := Denominator[ Coefficient[ BernoulliB[n, x], x, n - k]]; Flatten[ Table[t[n, k], {n, 0, 13}, {k, 0, n}]] (* Jean-François Alcover, Jan 15 2013 *)
|
|
PROG
|
(PARI) v=[]; for(n=0, 6, v=concat(v, apply(denominator, Vec(bernpol(n))))); v \\ Charles R Greathouse IV, Jun 08 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|