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 A157179 #2 Oct 12 2012 14:54:56
%S A157179 1,1,1,1,3,1,1,9,9,1,1,23,50,23,1,1,53,236,236,53,1,1,115,983,1822,
%T A157179 983,115,1,1,241,3723,11995,11995,3723,241,1,1,495,13168,70369,117534,
%U A157179 70369,13168,495,1,1,1005,44382,377918,997974,997974,377918,44382,1005,1,1
%N A157179 A new general triangle sequence based on the Eulerian form in three parts ( subtraction):m=1; t0(n,k)=If[n*k == 0, 1, Sum[(-1)^j Binomial[n + 1, j](k + 1 - j)^n, {j, 0, k + 1}]] t(n,k,m)=If[n == 0, 1, ( m*(n - k) + 1)*t0(n - 1 + 1, k - 1) + (m*k + 1)*t0(n - 1 + 1, k) - m*k*(n - k)*t0(n - 2 + 1, k - 1)].
%C A157179 Row sums are:
%C A157179 {1, 2, 5, 20, 98, 580, 4020, 31920, 285600, 2842560, 31147200,...}.
%C A157179 The m=0 of the general sequence is A008518.
%F A157179 m=1;
%F A157179 t0(n,k)=If[n*k == 0, 1, Sum[(-1)^j Binomial[n + 1, j](k + 1 - j)^n, {j, 0, k + 1}]];
%F A157179 t(n,k,m)=If[n == 0, 1, ( m*(n - k) + 1)*t0(n - 1 + 1, k - 1) +
%F A157179 (m*k + 1)*t0(n - 1 + 1, k) +
%F A157179 m*k*(n - k)*t0(n - 2 + 1, k - 1)].
%e A157179 {1},
%e A157179 {1, 1},
%e A157179 {1, 3, 1},
%e A157179 {1, 9, 9, 1},
%e A157179 {1, 23, 50, 23, 1},
%e A157179 {1, 53, 236, 236, 53, 1},
%e A157179 {1, 115, 983, 1822, 983, 115, 1},
%e A157179 {1, 241, 3723, 11995, 11995, 3723, 241, 1},
%e A157179 {1, 495, 13168, 70369, 117534, 70369, 13168, 495, 1},
%e A157179 {1, 1005, 44382, 377918, 997974, 997974, 377918, 44382, 1005, 1},
%e A157179 {1, 2027, 144605, 1896720, 7620498, 11819498, 7620498, 1896720, 144605, 2027, 1}
%t A157179 Clear[t, n, k, m];
%t A157179 t[n_, k_, m_] = (m*(n - k) + 1)*Binomial[n - 1, k - 1] + (m*k + 1)*Binomial[n - 1, k] - m*k*(n - k)*Binomial[n - 2, k - 1];
%t A157179 Table[t[n, k, m], {m, 0, 10}, {n, 0, 10}, {k, 0, n}];
%t A157179 Table[Flatten[Table[Table[t[n, k, m], {k, 0, n}], {n, 0, 10}]], {m, 0, 10}]
%t A157179 Table[Table[Sum[t[n, k, m], {k, 0, n}], {n, 0, 10}], {m, 0, 10}];
%Y A157179 A008518
%K A157179 nonn,tabl
%O A157179 0,5
%A A157179 _Roger L. Bagula_ and _Gary W. Adamson_, Feb 24 2009