%I #14 May 31 2016 04:41:54
%S 1,1,1,1,11,1,1,111,30,1,1,1111,681,58,1,1,11111,14050,2305,95,1,1,
%T 111111,278061,78590,5820,141,1,1,1111111,5394270,2478581,293930,
%U 12306,196,1,1,11111111,103602241,74794538,13353991,860006,23086,260,1,1
%N Triangle T(n,k) read by rows: T(n, k) = (m*n - m*k + 1)*T(n - 1, k - 1) + (9*k - 8)*(m*k - (m - 1))*T(n - 1, k) where m = 0.
%C Row sums are: {1, 2, 13, 143, 1852, 27563, 473725, 9290396, 203745235, 4912490375,...}.
%H G. C. Greubel, <a href="/A166979/b166979.txt">Table of n, a(n) for n = 1..325</a>
%F T(n, k) = T(n - 1, k - 1) + (9*k - 8)*T(n - 1, k).
%e {1},
%e {1, 1},
%e {1, 11, 1},
%e {1, 111, 30, 1},
%e {1, 1111, 681, 58, 1},
%e {1, 11111, 14050, 2305, 95, 1},
%e {1, 111111, 278061, 78590, 5820, 141, 1},
%e {1, 1111111, 5394270, 2478581, 293930, 12306, 196, 1},
%e {1, 11111111, 103602241, 74794538, 13353991, 860006, 23086, 260, 1},
%e {1, 111111111, 1979553690, 2197849305, 568892205, 52914267, 2129736, 39726, 333, 1}
%t A[n_, 1] := 1; A[n_, n_] := 1; A[n_, k_] := (m*n - m*k + 1)A[n - 1, k - 1] + (9*k - 8)*(m*k - (m - 1))A[n - 1, k]; Table[A[n, k] /. m -> 0, {n, 10}, {k, n}] // Flatten (* This sequence is the case of m=0 *)
%Y Cf. A002275.
%K nonn,tabl
%O 1,5
%A _Roger L. Bagula_, Oct 26 2009