A166350 Table T(n,m) = m! read by rows.

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).

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. A002260, A094310, A077012, A079210.

Cf. A014454.

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