OFFSET
0,4
COMMENTS
The numerator triangle is given in A285864, where details are given.
FORMULA
EXAMPLE
The triangle a(n, m) begins:
n\m 0 1 2 3 4 5 6 7 8 9 10 ...
0: 1
1: 1 1
2: 3 1 1
3: 1 1 1 1
4: 15 1 1 1 1
5: 1 3 1 3 1 1
6: 21 1 1 1 1 1 1
7: 1 3 1 3 1 1 1 1
8: 15 1 3 1 3 1 3 1 1
9: 1 5 1 1 1 5 1 1 1 1
10: 33 1 1 1 1 1 1 1 1 1 1
...
For the triangle of the rationals B2(n, m) see A285864.
MATHEMATICA
T[n_, m_]:=Denominator[Binomial[n, m]*2^(n - m)*BernoulliB[n - m]]; Table[T[n, m], {n, 0, 20}, {m, 0, n}] // Flatten (* Indranil Ghosh, May 06 2017 *)
PROG
(PARI) T(n, m) = denominator(binomial(n, m)*2^(n - m)*bernfrac(n - m));
for(n=0, 20, for(m=0, n, print1(T(n, m), ", "); ); print(); ) \\ Indranil Ghosh, May 06 2017
(Python)
from sympy import binomial, bernoulli
def T(n, m):
return (binomial(n, m) * 2**(n - m) * bernoulli(n - m)).denominator()
for n in range(21): print([T(n, m) for m in range(n + 1)]) # Indranil Ghosh, May 06 2017
CROSSREFS
KEYWORD
AUTHOR
Wolfdieter Lang, May 03 2017
STATUS
approved