This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A166350 #20 Jan 15 2025 21:11:33 %S A166350 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 A166350 5040,1,2,6,24,120,720,5040,40320,1,2,6,24,120,720,5040,40320,362880, %U A166350 1,2,6,24,120,720,5040,40320,362880,3628800,1,2,6,24,120,720,5040,40320 %N A166350 Triangle read by rows: T(n,m) = m!, n >= 1. %H A166350 Reinhard Zumkeller, <a href="/A166350/b166350.txt">Rows n=1..100 of triangle, flattened</a> %H A166350 <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a> %F A166350 T(n,m) = A000142(m). %e A166350 Triangle begins: %e A166350 1; %e A166350 1, 2; %e A166350 1, 2, 6; %e A166350 1, 2, 6, 24; %e A166350 1, 2, 6, 24, 120; %e A166350 1, 2, 6, 24, 120, 720; %e A166350 1, 2, 6, 24, 120, 720, 5040; %e A166350 ... %t A166350 Flatten[Table[Range[n]!,{n,11}]] (* _Harvey P. Dale_, Jan 06 2012 *) %t A166350 Module[{nn=20,fs},fs=Range[nn]!;Table[Take[fs,n],{n,nn}]]//Flatten (* _Harvey P. Dale_, Jun 14 2020 *) %o A166350 (Haskell) %o A166350 import Data.List (inits) %o A166350 a166350 n k = a166350_tabl !! (n-1) !! (n-1) %o A166350 a166350_row n = a166350_tabl !! (n-1) %o A166350 a166350_tabl = tail $ inits $ tail a000142_list %o A166350 -- _Reinhard Zumkeller_, Nov 11 2013 %Y A166350 Cf. A000142, A002260, A094310, A077012, A079210. %Y A166350 Cf. A014454. %Y A166350 Row sums give A007489. %K A166350 nonn,tabl %O A166350 1,3 %A A166350 _Paul Curtz_, Oct 12 2009 %E A166350 Definition clarified - _R. J. Mathar_, Oct 14 2009