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 A134392 #19 Mar 25 2022 03:03:32 %S A134392 1,2,1,4,3,1,8,7,4,1,15,14,10,5,1,26,25,20,13,6,1,42,41,35,26,16,7,1, %T A134392 64,63,56,45,32,19,8,1,93,92,84,71,55,38,22,9,1,130,129,120,105,86,65, %U A134392 44,25,10,1,176,175,165,148,126,101,75,50,28,11,1 %N A134392 A077028 * A000012, that is Rascal's triangle (as matrix) multiplied by a lower triangular matrix of ones (main diagonal of ones included). %C A134392 Left border = A000125. %C A134392 Row sums = A134393. %F A134392 A077028 * A000012 as infinite lower triangular matrices. %F A134392 Triangle read by rows, partial sums starting from the right of A077028. %e A134392 First few rows of the triangle: %e A134392 1; %e A134392 2, 1; %e A134392 4, 3, 1; %e A134392 8, 7, 4, 1; %e A134392 15, 14, 10, 5, 1; %e A134392 26, 25, 20, 13, 6, 1; %e A134392 42, 41, 35, 26, 16, 7, 1; %e A134392 ... %t A134392 rows = 11; %t A134392 R[n_, k_] /; k <= n := k (n - k) + 1; R[0, 0] = 1; R[_, _] = 0; %t A134392 MR = Table[R[n, k], {n, 0, rows-1}, {k, 0, rows-1}]; %t A134392 MB = Table[Boole[0 <= k <= n], {n, 0, rows-1}, {k, 0, rows -1}]; %t A134392 T = MR.MB; %t A134392 Table[T[[n, k]], {n, 1, rows}, {k, 1, n}] // Flatten (* _Jean-François Alcover_, Apr 01 2020 *) %Y A134392 Cf. A077028, A000125, A134393. %K A134392 nonn,tabl %O A134392 1,2 %A A134392 _Gary W. Adamson_, Oct 23 2007 %E A134392 Typos corrected by _Jean-François Alcover_, Apr 01 2020