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 A156186 #10 Feb 18 2024 05:15:35 %S A156186 2,1,1,1,6,1,1,30,30,1,1,159,360,159,1,1,1119,3639,3639,1119,1,1, %T A156186 10932,41262,57414,41262,10932,1,1,136764,582642,898632,898632,582642, %U A156186 136764,1,1,2031933,9957168,16634718,17182152,16634718,9957168,2031933,1,1 %N A156186 Triangle: m=3; e(n,k,n) = (k + m - 1)*e(n - 1, k, m) + (m*n - k + 1 - m)*e(n - 1, k - 1, m); t(n,k) = e(n,k,m) + e(n,n-k,m). %F A156186 m=3; e(n,k,n) = (k + m - 1)*e(n - 1, k, m) + (m*n - k + 1 - m)*e(n - 1, k - 1, m); %F A156186 t(n,k) = e(n,k,m) + e(n,n-k,m). %e A156186 {2}, %e A156186 {1, 1}, %e A156186 {1, 6, 1}, %e A156186 {1, 30, 30, 1}, %e A156186 {1, 159, 360, 159, 1}, %e A156186 {1, 1119, 3639, 3639, 1119, 1}, %e A156186 {1, 10932, 41262, 57414, 41262, 10932, 1}, %e A156186 {1, 136764, 582642, 898632, 898632, 582642, 136764, 1}, %e A156186 {1, 2031933, 9957168, 16634718, 17182152, 16634718, 9957168, 2031933, 1},... %t A156186 m = 3; e[n_, 0, m_] := 1; %t A156186 e[n_, k_, m_] := 0 /; k >= n; %t A156186 e[n_, k_, 1] := 1 /; k >= n; %t A156186 e[n_, k_, m_] := (k + m - 1)e[n - 1, k, m] + (m*n - k + 1 - m)e[n - 1, k - 1, m]; %t A156186 Table[Table[e[n, k, m], {k, 0, n - 1}], {n, 1, 10}]; %t A156186 Table[Table[e[n, k, m] + e[n, n - k, m], {k, 0, n}], {n, 0, 10}]; %t A156186 Flatten[%] %Y A156186 Cf. A054091, A054090, A008517, A156141. %K A156186 nonn,tabl,less,uned %O A156186 0,1 %A A156186 _Roger L. Bagula_, Feb 05 2009