OFFSET
1,3
LINKS
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
KEYWORD
nonn,tabl
AUTHOR
Paul Curtz, Oct 12 2009
EXTENSIONS
Definition clarified - R. J. Mathar, Oct 14 2009
STATUS
approved