A062707 - OEIS

%I #16 Sep 08 2022 08:45:03

%S 0,0,0,0,1,0,0,3,2,0,0,6,6,3,0,0,10,12,9,4,0,0,15,20,18,12,5,0,0,21,

%T 30,30,24,15,6,0,0,28,42,45,40,30,18,7,0,0,36,56,63,60,50,36,21,8,0,0,

%U 45,72,84,84,75,60,42,24,9,0,0,55,90,108,112,105,90,70,48,27,10,0

%N Table by antidiagonals of n*k*(k+1)/2.

%H G. C. Greubel, <a href="/A062707/b062707.txt">Antidiagonals n = 0..100, flattened</a>

%F T(n, k) = T(n, 1)*T(1, k) = A001477(n)*A000217(k).

%F T(n, k) = A057145(n+2, k+1)-(k+1).

%e   0   0   0   0   0   0   0   0   0

%e   0   1   3   6  10  15  21  28  36

%e   0   2   6  12  20  30  42  56  72

%e   0   3   9  18  30  45  63  84 108

%e   0   4  12  24  40  60  84 112 144

%e   0   5  15  30  50  75 105 140 180

%e   0   6  18  36  60  90 126 168 216

%e   0   7  21  42  70 105 147 196 252

%e   0   8  24  48  80 120 168 224 288

%p seq(seq(k*binomial(n-k+1,2), k=0..n), n=0..12); # _G. C. Greubel_, Sep 02 2019

%t Table[k*Binomial[n-k+1, 2], {n,0,12}, {k,0,n}]//Flatten (* _G. C. Greubel_, Sep 02 2019 *)

%o (PARI) T(n,k) = k*binomial(n-k+1,2);

%o for(n=0,12, for(k=0,n, print1(T(n,k), ", "))) \\ _G. C. Greubel_, Sep 02 2019

%o (Magma) [k*Binomial(n-k+1,2): k in [0..n], n in [0..12]]; // _G. C. Greubel_, Sep 02 2019

%o (Sage) [[k*binomial(n-k+1,2) for k in (0..n)] for n in (0..12)] # _G. C. Greubel_, Sep 02 2019

%o (GAP) Flat(List([0..12], n-> List([0..n], k-> k*Binomial(n-k+1,2)))); # _G. C. Greubel_, Sep 02 2019

%Y Main diagonal is A002411. Sum of antidiagonals is A000332.

%K easy,nonn,tabl

%O 0,8

%A _Henry Bottomley_, Jul 11 2001