OFFSET
0,3
COMMENTS
LINKS
EXAMPLE
See A213998.
MATHEMATICA
T[_, 0] = 1; T[n_, n_] := 1/(n + 1);
T[n_, k_] := T[n, k] = T[n - 1, k] + T[n - 1, k - 1];
Table[T[n, k] // Denominator, {n, 0, 11}, {k, 0, n}] // Flatten (* Jean-François Alcover, Nov 10 2021 *)
PROG
(Haskell)
import Data.Ratio ((%), denominator, Ratio)
a213999 n k = a213999_tabl !! n !! k
a213999_row n = a213999_tabl !! n
a213999_tabl = map (map denominator) $ iterate pf [1] where
pf row = zipWith (+) ([0] ++ row) (row ++ [-1 % (x * (x + 1))])
where x = denominator $ last row
CROSSREFS
AUTHOR
Reinhard Zumkeller, Jul 03 2012
STATUS
approved