STATUS
proposed
approved
proposed
approved
editing
proposed
BellMatrix[f_, len_] := With[{t = Array[f, len, 0]}, Table[BellY[n, k, t], {n, 0, len - 1}, {k, 0, len - 1}]];
rows = 12;
B = BellMatrix[BernoulliB[2#, 1]&, rows];
Table[B[[n, k]] // Denominator, {n, 1, rows}, {k, 1, n}] // Flatten (* Jean-François Alcover, Jun 27 2018, from Maple *)
approved
editing
editing
approved
proposed
approved
editing
proposed
nonn,tabl,frac,changed
proposed
editing
editing
proposed