OFFSET
2,4
EXAMPLE
Array begins:
1
1 1
3 1 1
3 1 1 1
4 2 2 1 2
...
MATHEMATICA
T[n_, k_] := IntegerExponent[n!, k];
Table[T[n, k], {n, 2, 15}, {k, 2, n}] // Flatten (* Jean-François Alcover, Sep 15 2021 *)
PROG
(PARI) T(n, k) = valuation(n!, k); \\ Michel Marcus, Sep 15 2021
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Sep 14 2004
STATUS
approved