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 A059370 #13 Jun 14 2013 05:22:15
%S A059370 1,1,-2,1,-4,2,1,-6,8,-4,1,-8,18,-16,-4,1,-10,32,-44,12,-48,1,-12,50,
%T A059370 -96,72,-96,-336,1,-14,72,-180,216,-216,-480,-2928,1,-16,98,-304,500,
%U A059370 -544,-376,-4672,-28144,1,-18,128,-476,996,-1312,256,-5856,-45520,-298528
%N A059370 Triangle of numbers obtained by inverting infinite matrix defined in A059369, read from right to left.
%e A059370 Triangle starts
%e A059370 1;
%e A059370 1, -2;
%e A059370 1, -4, 2;
%e A059370 1, -6, 8, -4;
%e A059370 1, -8, 18, -16, -4;
%e A059370 1, -10, 32, -44, 12, -48;
%e A059370 1, -12, 50, -96, 72, -96, -336;
%e A059370 1, -14, 72, -180, 216, -216, -480, -2928;
%e A059370 1, -16, 98, -304, 500, -544, -376, -4672, -28144;
%e A059370 1, -18, 128, -476, 996, -1312, 256, -5856, -45520, -298528;
%e A059370 ... - _Joerg Arndt_, Apr 20 2013
%t A059370 nmax = 10; t[n_, k_] := t[n, k] = Sum[(m+1)!*t[n-m-1, k-1], {m, 0, n-k}]; t[n_, 1] = n!; t[n_, n_] = 1; tnk = Table[t[n, k], {n, 1, nmax}, {k, 1, nmax}]; Reverse /@ Inverse[tnk] // DeleteCases[#, 0, 2]& // Flatten (* _Jean-François Alcover_, Jun 14 2013 *)
%Y A059370 Cf. A059369, A059372, A059373.
%K A059370 sign,tabl,easy
%O A059370 0,3
%A A059370 _N. J. A. Sloane_, Jan 28 2001
%E A059370 More terms from _Vladeta Jovovic_, Mar 05 2001