OFFSET
1,3
COMMENTS
T(n,k) = sum(A220073(n,i): i=1..k).
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..7260
MATHEMATICA
A[n_, k_] := If[k == 1, n, If[k == n, n-1, Abs[2k-n-If[2k <= n+1, 2, 1]]]];
A220073[n_, k_] := A[n, n-k+1];
T[n_, k_] := Sum[A220073[n, i], {i, 1, k}];
Table[T[n, k], {n, 1, 12}, {k, 1, n}] // Flatten (* Jean-François Alcover, Sep 27 2021 *)
PROG
(Haskell)
a220075 n k = a220075_tabl !! (n-1) !! (k-1)
a220075_row n = a220075_tabl !! (n-1)
a220075_tabl = map (scanl1 (+)) a220073_tabl
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Dec 03 2012
STATUS
approved