A166350 Triangle read by rows: T(n,m) = m!, n >= 1.

1, 1, 2, 1, 2, 6, 1, 2, 6, 24, 1, 2, 6, 24, 120, 1, 2, 6, 24, 120, 720, 1, 2, 6, 24, 120, 720, 5040, 1, 2, 6, 24, 120, 720, 5040, 40320, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 1, 2, 6, 24, 120, 720, 5040, 40320

Offset

1,3

Links

Reinhard Zumkeller, Rows n=1..100 of triangle, flattened

Index entries for sequences related to factorial numbers

Formula

T(n,m) = A000142(m).

Example

Triangle begins:
  1;
  1, 2;
  1, 2, 6;
  1, 2, 6, 24;
  1, 2, 6, 24, 120;
  1, 2, 6, 24, 120, 720;
  1, 2, 6, 24, 120, 720, 5040;
  ...

Mathematica

Flatten[Table[Range[n]!, {n, 11}]] (* Harvey P. Dale, Jan 06 2012 *)
Module[{nn=20, fs}, fs=Range[nn]!; Table[Take[fs, n], {n, nn}]]//Flatten (* Harvey P. Dale, Jun 14 2020 *)

Prog

(Haskell)
import Data.List (inits)
a166350 n k = a166350_tabl !! (n-1) !! (n-1)
a166350_row n = a166350_tabl !! (n-1)
a166350_tabl = tail $ inits $ tail a000142_list
-- Reinhard Zumkeller, Nov 11 2013

Crossrefs

Cf. A000142, A002260, A094310, A077012, A079210.

Cf. A014454.

Row sums give A007489.

Sequence in context: A129116 A096179 A361834 * A357124 A210227 A208757

Adjacent sequences: A166347 A166348 A166349 * A166351 A166352 A166353

Keyword

nonn,tabl

Author

Paul Curtz, Oct 12 2009

Extensions

Definition clarified - R. J. Mathar, Oct 14 2009

Status

approved