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 A138192 #3 Oct 13 2012 14:33:41
%S A138192 1,6,1,48,12,1,480,144,18,1,5760,1920,288,24,1,80640,28800,4800,480,
%T A138192 30,1,1290240,483840,86400,9600,720,36,1,23224320,9031680,1693440,
%U A138192 201600,16800,1008,42,1,464486400,185794560,36126720,4515840,403200,26880,1344
%N A138192 A triangular sequence based on expansion of the rational polynomial of A001788 as a Sheffer sequence: p(x,t)=Exp[x*t]*(-1/(2*t - 1)^3).
%C A138192 Row sums are:
%C A138192 {1, 7, 61, 643, 7993, 114751, 1870837, 34168891, 691354993, 15354462583,371417174701};
%F A138192 p(x,t)=Exp[x*t]*(-1/(2*t - 1)^3)=Sum(P(x,n)*t^n/n!,{n,0,Infinity}); Out_n,m=n!*Coefficients(P(x,n)).
%e A138192 {1},
%e A138192 {6, 1},
%e A138192 {48, 12, 1},
%e A138192 {480, 144, 18, 1},
%e A138192 {5760, 1920, 288, 24, 1},
%e A138192 {80640, 28800, 4800, 480, 30, 1},
%e A138192 {1290240, 483840, 86400, 9600, 720, 36, 1},
%e A138192 {23224320, 9031680, 1693440, 201600, 16800, 1008, 42, 1},
%e A138192 {464486400, 185794560, 36126720, 4515840, 403200, 26880, 1344, 48, 1}, {10218700800, 4180377600, 836075520, 108380160, 10160640, 725760, 40320,1728,54, 1},
%e A138192 {245248819200, 102187008000, 20901888000, 2786918400, 270950400, 20321280, 1209600, 57600, 2160, 60, 1}
%t A138192 p[t_] = Exp[x*t]*(-1/(2*t - 1)^3); Table[ ExpandAll[n!*SeriesCoefficient[ Series[p[t], {t, 0, 30}], n]], {n, 0, 10}]; a = Table[ CoefficientList[n!*SeriesCoefficient[ Series[p[t], {t, 0, 30}], n], x], {n, 0, 10}]; Flatten[a]
%Y A138192 Cf. A001788.
%K A138192 nonn,uned,tabl
%O A138192 1,2
%A A138192 _Roger L. Bagula_ and _Gary W. Adamson_, May 04 2008