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 A156792 #25 Jun 12 2021 23:21:26
%S A156792 1,1,1,6,1,2,7,6,2,9,78,7,12,9,24,420,78,14,54,24,130,6872,420,156,63,
%T A156792 144,130,720,17253,6872,840,702,168,780,720,8505,326552,17253,13744,
%U A156792 3780,1872,910,4320,8505,35840
%N A156792 Triangle read by rows, T(n,k) = (A156791(n-k+1) * (A006973 * 0^(n-k))).
%C A156792 This is a convolution triangle: A006973 convolved with A156791.
%C A156792 As a property of eigentriangles, sum of n-th row terms = rightmost term of next row.
%H A156792 G. C. Greubel, <a href="/A156792/b156792.txt">Rows n = 0..50 of the triangle, flattened</a>
%F A156792 Triangle read by rows, T(n,k) = M*Q =(A156791(n-k+1) * (A006973 * 0^(n-k)))
%F A156792 M = an infinite lower triangular matrix with A156791: (1, 1, 6, 7, 78, ...) in every column.
%F A156792 Q = an infinite lower triangular matrix with A006973 prefaced with a 1 as the main diagonal: (1, 1, 2, 9, 24, 130, 720, 8505, ...) and the rest zeros.
%F A156792 Sum_{k=0..n} T(n, k) = A006973(n+1).
%F A156792 T(n, 0) = T(n+1, 1) = A156791(n).
%F A156792 T(n, k) = A156791(n-k+2)*([k=0] + A006973(k+1)). - _G. C. Greubel_, Jun 11 2021
%e A156792 First few rows of the triangle:
%e A156792 1,
%e A156792 1, 1;
%e A156792 6, 1, 2;
%e A156792 7, 6, 2, 9;
%e A156792 78, 7, 12, 9, 24;
%e A156792 420, 78, 14 54, 24, 130;
%e A156792 6872, 420, 156, 63, 144, 130, 720;
%e A156792 17253, 6872, 840, 702, 168, 780, 720, 8505;
%e A156792 326552, 17253, 13744, 3780, 1872, 910, 4320, 8505, 35840;
%e A156792 ...
%e A156792 Example: Row 4 = (7, 6, 2, 9) = termwise products of (7, 6, 1, 1) and (1, 1, 2, 9).
%t A156792 A006973[n_]:= A006973[n]= If[n<4, Max[n-1, 0], (n-1)!*(1 + Sum[k*(-A006973[k]/k!)^(n/k), {k, Most[Divisors[n]]}])];
%t A156792 S[n_, x_]:= Sum[A006973[j]*x^j, {j, 0, n+2}];
%t A156792 A156791:= With[{p=100}, CoefficientList[Series[S[p,x]/(x + S[p,x]), {x,0,p}], x]]
%t A156792 A156792[n_, k_]:= A156791[[n-k+2]]*(Boole[k==0] + A006973[k+1]);
%t A156792 Table[A156792[n, k], {n,0,12}, {k,0,n}]//Flatten (* _G. C. Greubel_, Jun 11 2021 *)
%Y A156792 Cf. A006973, A156791.
%K A156792 eigen,nonn,tabl
%O A156792 0,4
%A A156792 _Gary W. Adamson_, Feb 15 2009
%E A156792 Typo in last line of triangle corrected by _Olivier Gérard_, Aug 11 2016