%I A141903
%S A141903 1,1,3,1,10,1,1,25,19,3,1,56,126,56,1,1,119,594,614,109,3,1,246,2367,
%T A141903 4852,2367,246,1,1,501,8565,31273,31203,8607,487,3,1,1012,29188,176524,
%U A141903 312310,176524,29188,1012,1,1,2035,95644,910468,2620582,2620834,910300
%N A141903 A linear combination of A008292 and A130595: t(n,m)=2*A008292(n,m)- A130595(n,
               m).
%C A141903 Row sums are:
%C A141903 {1, 4, 12, 48, 240, 1440, 10080, 80640, 725760, 7257600}.
%F A141903 t(n,m)=2*A008292(n,m)- A130595(n,m).
%e A141903 {1},
%e A141903 {1, 3},
%e A141903 {1, 10, 1},
%e A141903 {1, 25, 19, 3},
%e A141903 {1, 56, 126, 56, 1},
%e A141903 {1, 119, 594, 614, 109, 3},
%e A141903 {1, 246, 2367, 4852, 2367, 246, 1},
%e A141903 {1, 501, 8565, 31273, 31203, 8607, 487, 3},
%e A141903 {1, 1012, 29188, 176524, 312310, 176524, 29188, 1012, 1},
%e A141903 {1, 2035, 95644, 910468, 2620582, 2620834, 910300, 95716, 2017, 3}
%t A141903 A[n_, 1] := 1 A[n_, n_] := 1 A[n_, k_] := (n - k + 1)A[n - 1, k - 1] 
               + k A[n - 1, k]; Table[Table[2*A[n, k] - (-1)^(k + 1)*Binomial[n 
               - 1, k - 1], {k, 1, n}], {n, 1, 10}]; Flatten[%]
%Y A141903 Cf. A008292 and A130595.
%Y A141903 Sequence in context: A038202 A128415 A090479 this_sequence A010289 A127613 
               A019427
%Y A141903 Adjacent sequences: A141900 A141901 A141902 this_sequence A141904 A141905 
               A141906
%K A141903 nonn,uned
%O A141903 1,3
%A A141903 Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Sep 
               14 2008