A322128 Triangular array, read by rows: T(n,k) = denominator of binomial(n-1, n-k)/k!, 1 <= k <= n.

1, 1, 2, 1, 1, 6, 1, 2, 2, 24, 1, 1, 1, 6, 120, 1, 2, 3, 12, 24, 720, 1, 1, 2, 6, 8, 120, 5040, 1, 2, 2, 24, 24, 240, 720, 40320, 1, 1, 3, 3, 12, 90, 180, 5040, 362880, 1, 2, 1, 2, 20, 40, 60, 1120, 40320, 3628800, 1, 1, 2, 1, 4, 20, 24, 336, 8064, 362880, 39916800

Offset

1,3

Links

Seiichi Manyama, Rows n = 1..140, flattened

Example

See A322127.

Mathematica

T[n_, k_] := Denominator[Binomial[n-1, n-k]/k!]; Table[T[n, k], {n, 1, 10}, {k, 1, n}] // Flatten (* Amiram Eldar, Nov 27 2018 *)

Crossrefs

Cf. A007318, A322093, A322127.

Sequence in context: A306297 A053383 A181538 * A125731 A123361 A265315

Adjacent sequences: A322125 A322126 A322127 * A322129 A322130 A322131

Keyword

nonn,frac,tabl

Author

Seiichi Manyama, Nov 27 2018

Status

approved