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 A091614 #13 Nov 28 2021 01:22:09
%S A091614 1,-1,1,-3,0,1,-1,-3,0,1,5,-6,-2,0,1,13,-4,-5,-2,0,1,27,1,-7,-4,-2,0,
%T A091614 1,41,12,-4,-6,-4,-2,0,1,43,35,4,-6,-5,-4,-2,0,1,25,72,18,0,-5,-5,-4,
%U A091614 -2,0,1,-23,128,40,11,-2,-4,-5,-4,-2,0,1,-157,205,77,30,8,-1,-4,-5,-4,-2,0,1
%N A091614 Matrix inverse of triangle A091613.
%H A091614 G. C. Greubel, <a href="/A091614/b091614.txt">Rows n = 0..50 of the triangle, flattened</a>
%e A091614 Triangle begins as:
%e A091614 1;
%e A091614 -1, 1;
%e A091614 -3, 0, 1;
%e A091614 -1, -3, 0, 1;
%e A091614 5, -6, -2, 0, 1;
%e A091614 13, -4, -5, -2, 0, 1;
%e A091614 27, 1, -7, -4, -2, 0, 1;
%e A091614 41, 12, -4, -6, -4, -2, 0, 1;
%e A091614 43, 35, 4, -6, -5, -4, -2, 0, 1;
%e A091614 25, 72, 18, 0, -5, -5, -4, -2, 0, 1;
%e A091614 -23, 128, 40, 11, -2, -4, -5, -4, -2, 0, 1;
%t A091614 b[n_, l_, k_]:= b[n, l, k]= If[n==0, 1, Sum[If[i==l, 0, Sum[b[n-i*j, i, k], {j, Min[k, n/i]}]], {i, n}]];
%t A091614 t[n_, k_]:= b[n, 0, k] - b[n, 0, k-1]; (* t = A091613 *)
%t A091614 M:= With[{p = 16}, Table[t[n, k], {n, p}, {k, p}]];
%t A091614 T:= Inverse[M];
%t A091614 Table[T[[n, k]], {n, 15}, {k, n}]//Flatten (* _G. C. Greubel_, Nov 27 2021 *)
%Y A091614 Cf. A091613, A091623 (first column).
%K A091614 sign,tabl
%O A091614 1,4
%A A091614 _Christian G. Bower_, Jan 23 2004
%E A091614 Name corrected by _G. C. Greubel_, Nov 27 2021