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 A177848 #7 Feb 06 2021 22:31:16 %S A177848 1,1,1,1,3,1,1,55,55,1,1,1993,12073,1993,1,1,120841,7983241,7983241, %T A177848 120841,1,1,11404081,12454040881,149448498481,12454040881,11404081,1, %U A177848 1,1556750161,38109367290961,8688935743482961,8688935743482961,38109367290961,1556750161,1 %N A177848 Triangle, read by rows, T(n, k) = t(k, n-k+1) - t(1, n) + 1 where t(n, m) = (n*m)!*Beta(n, m). %C A177848 Row sums are {1, 2, 5, 112, 16061, 16208166, 174379388407, 17454093335048168, 27083470639271574245769, 421762213493139881153379087370, ...}. %H A177848 G. C. Greubel, <a href="/A177848/b177848.txt">Rows n = 1..30 of the triangle, flattened</a> %F A177848 Let t(n, k) = (n*k)!*Beta(n, k) then T(n, k) = t(k, n-k+1) - t(1, n) + 1. %e A177848 Triangle begins as: %e A177848 1; %e A177848 1, 1; %e A177848 1, 3, 1; %e A177848 1, 55, 55, 1; %e A177848 1, 1993, 12073, 1993, 1; %e A177848 1, 120841, 7983241, 7983241, 120841, 1; %e A177848 1, 11404081, 12454040881, 149448498481, 12454040881, 11404081, 1; %t A177848 t[n_, k_]:= (n*k)!*Beta[n, k]; %t A177848 Table[t[k, n-k+1] - t[1, n] + 1, {n, 12}, {k, n}]//Flatten %o A177848 (Sage) %o A177848 def t(n, k): return factorial(n*k)*beta(n, k) %o A177848 flatten([[t(k, n-k+1) - t(1,n) + 1 for k in (1..n)] for n in (1..12)]) # _G. C. Greubel_, Feb 06 2021 %Y A177848 Cf. A060854. %K A177848 nonn,tabl %O A177848 1,5 %A A177848 _Roger L. Bagula_, May 14 2010 %E A177848 Edited by _G. C. Greubel_, Feb 06 2021