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

%I #11 Jun 14 2020 11:14:35

%S 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,

%T 5040,1,2,6,24,120,720,5040,40320,1,2,6,24,120,720,5040,40320,362880,

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

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

%H Reinhard Zumkeller, <a href="/A166350/b166350.txt">Rows n=1..100 of triangle, flattened</a>

%H <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a>

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

%t Flatten[Table[Range[n]!,{n,11}]] (* _Harvey P. Dale_, Jan 06 2012 *)

%t Module[{nn=20,fs},fs=Range[nn]!;Table[Take[fs,n],{n,nn}]]//Flatten (* _Harvey P. Dale_, Jun 14 2020 *)

%o (Haskell)

%o import Data.List (inits)

%o a166350 n k = a166350_tabl !! (n-1) !! (n-1)

%o a166350_row n = a166350_tabl !! (n-1)

%o a166350_tabl = tail $ inits $ tail a000142_list

%o -- _Reinhard Zumkeller_, Nov 11 2013

%Y Cf. A002260, A094310, A077012, A079210.

%Y Cf. A014454.

%K nonn,tabl

%O 1,3

%A _Paul Curtz_, Oct 12 2009

%E Definition clarified - _R. J. Mathar_, Oct 14 2009