This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A333119 #10 Mar 11 2020 23:52:19 %S A333119 0,0,1,0,2,1,0,3,2,2,0,4,3,4,2,0,5,4,6,4,3,0,6,5,8,6,6,3,0,7,6,10,8,9, %T A333119 6,4,0,8,7,12,10,12,9,8,4,0,9,8,14,12,15,12,12,8,5,0,10,9,16,14,18,15, %U A333119 16,12,10,5,0,11,10,18,16,21,18,20,16,15,10,6 %N A333119 Triangle T read by rows: T(n, k) = (n - k)*(1 - (-1)^k + 2*k)/4, with 0 <= k < n. %C A333119 T(n, k) is the k-th super- and subdiagonal sum of the matrix M(n) whose permanent is A332566(n). %C A333119 The h-th subdiagonal of the triangle T gives 0 followed by the multiples of h+1 repeated. %C A333119 For k > 0, the (2*k-1)-th and (2*k)-th columns of the triangle T give the multiples of k. %F A333119 O.g.f.: y*(x*(2 + y + y^2) - (1 + y + 2*y^2))/((1 - x)^2*(1 - y)^3*(1 + y)^2). %F A333119 T(n, k) = k*(n - k)/2 for k even. %F A333119 T(n, k) = (1 + k)*(n - k)/2 for k odd. %e A333119 n\k| 0 1 2 3 4 5 %e A333119 ---+------------ %e A333119 1 | 0 %e A333119 2 | 0 1 %e A333119 3 | 0 2 1 %e A333119 4 | 0 3 2 2 %e A333119 5 | 0 4 3 4 2 %e A333119 6 | 0 5 4 6 4 3 %e A333119 ... %e A333119 For n = 4 the matrix M(4) is %e A333119 0 1 1 2 %e A333119 1 0 1 1 %e A333119 1 1 0 1 %e A333119 2 1 1 0 %e A333119 and therefore T(4, 0) = 0, T(4, 1) = 3, T(4, 2) = 2 and T(4, 3) = 2. %t A333119 T[n_,k_]:=(n-k)(1-(-1)^k+2k)/4; Flatten[Table[T[n,k],{n,1,12},{k,0,n-1}]] (* or *) %t A333119 r[n_] := Table[SeriesCoefficient[y*(x*(2 + y + y^2) - (1 + y + 2*y^2))/((1 - x)^2 *(1 - y)^3 (1 + y)^2), {x, 0, i}, {y, 0, j}], {i, n, n}, {j, 0, n-1}]; Flatten[Array[r, 12]] %Y A333119 Cf. A332566. %Y A333119 Cf. A000004: 1st column; A000027: 2nd and 3rd column; A004526: diagonal; A005843: 4th and 5th column; A052928: 1st subdiagonal; A168237: 2nd subdiagonal; A168273: 3rd subdiagonal; A173196: row sums. %K A333119 easy,nonn,tabl %O A333119 1,5 %A A333119 _Stefano Spezia_, Mar 08 2020