OFFSET
0,5
FORMULA
EXAMPLE
Array begins:
k=0: 1 1 2 6 24 ...
k=1: 1 2 5 16 65 ...
k=2: 1 3 10 38 168 ...
k=3: 1 4 17 78 393 ...
k=4: 1 5 26 142 824 ...
...
MATHEMATICA
T[0, k_] := k!; T[n_, k_] := k!*Sum[n^j/j!, {j, 0, k}];
Table[T[n-k, k], {n, 0, 10}, {k, 0, n}] // Flatten (* Jean-François Alcover, Jan 17 2018 *)
CROSSREFS
KEYWORD
AUTHOR
Paul Barry, Feb 26 2003
EXTENSIONS
Corrected by Philippe Deléham, Dec 12 2003
STATUS
approved