A224964 Irregular triangle of the denominators of the unreduced fractions that lead to the second Bernoulli numbers.
2, 2, 2, 6, 2, 6, 2, 6, 15, 2, 6, 15, 2, 6, 15, 105, 2, 6, 15, 105, 2, 6, 15, 105, 105, 2, 6, 15, 105, 105, 2, 6, 15, 105, 105, 231, 2, 6, 15, 105, 105, 231, 2, 6, 15, 105, 105, 231, 15015, 2, 6, 15, 105, 105, 231, 15015
Offset: 0
Examples
Triangle begins 2; 2; 2, 6; 2, 6; 2, 6, 15; 2, 6, 15; 2, 6, 15, 105; 2, 6, 15, 105; 2, 6, 15, 105, 105; 2, 6, 15, 105, 105; 2, 6, 15, 105, 105, 231; 2, 6, 15, 105, 105, 231; 2, 6, 15, 105, 105, 231, 15015; 2, 6, 15, 105, 105, 231, 15015;
Programs
-
Mathematica
nmax = 7; b[n_] := BernoulliB[n]; b[1] = 1/2; bb = Table[b[n], {n, 0, 2*nmax-1}]; diff = Table[ Differences[bb, n], {n, 1, nmax}]; A190339 = diff // Diagonal // Denominator; Table[ Table[ Take[ A190339, n], {2}], {n, 1, nmax}] // Flatten (* Jean-François Alcover, Apr 25 2013 *)
Formula
T(n,k) = A190339(k).
Comments