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 A138186 #3 Oct 13 2012 14:31:44
%S A138186 1,1,1,6,2,1,24,18,3,1,168,96,36,4,1,960,840,240,60,5,1,9360,5760,
%T A138186 2520,480,90,6,1,70560,65520,20160,5880,840,126,7,1,806400,564480,
%U A138186 262080,53760,11760,1344,168,8,1,7983360,7257600,2540160,786240,120960,21168
%N A138186 A triangular sequence based on expansion of the rational polynomial of A023054 as a Sheffer sequence: p(x,t)=Exp[x*t]*(1 - t^5)/((1 - t)*(1 - t^2)^2*(1 - t^3)).
%C A138186 Row sums are:
%C A138186 {1, 2, 9, 46, 305, 2106, 18217, 163094, 1700001, 18711730, 232069961};
%F A138186 p(x,t)=Exp[x*t]*(1 - t^5)/((1 - t)*(1 - t^2)^2*(1 - t^3))=Sum(P(x,n)*t^n/n!,{n,0,Infinity}); Out_n,m=n!*Coefficients(P(x,n)).
%e A138186 {1},
%e A138186 {1, 1},
%e A138186 {6, 2, 1},
%e A138186 {24, 18, 3, 1},
%e A138186 {168, 96, 36, 4, 1},
%e A138186 {960, 840, 240, 60, 5, 1},
%e A138186 {9360, 5760, 2520, 480, 90, 6, 1},
%e A138186 {70560, 65520, 20160, 5880, 840, 126, 7, 1},
%e A138186 {806400, 564480, 262080, 53760, 11760, 1344, 168, 8, 1},
%e A138186 {7983360, 7257600, 2540160, 786240, 120960, 21168, 2016, 216, 9, 1},
%e A138186 {105235200, 79833600, 36288000, 8467200, 1965600, 241920, 35280, 2880, 270, 10, 1}
%t A138186 p[t_] = Exp[x*t]*(1 - t^5)/((1 - t)*(1 - t^2)^2*(1 - t^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 A138186 Cf. A023054.
%K A138186 nonn,uned,tabl
%O A138186 1,4
%A A138186 _Roger L. Bagula_ and _Gary W. Adamson_, May 04 2008