%I A157654
%S A157654 1,1,1,1,0,1,1,2,2,1,1,4,0,4,1,1,6,2,2,6,1,1,8,4,0,4,8,1,1,10,6,2,2,6,
%T A157654 10,1,1,12,8,4,0,4,8,12,1,1,14,10,6,2,2,6,10,14,1,1,16,12,8,4,0,4,8,12,
%U A157654 16,1
%N A157654 Triangle read by rows:k=2; t(n,m)= If[n*m*(n - m) == 0, 1, Abs[(-k m^(k 
               - 1) + k (-m + n)^(k - 1))]].
%C A157654 Row sums are:
%C A157654 {1, 2, 2, 6, 10, 18, 26, 38, 50, 66, 82,...}.
%F A157654 k=2; t(n,m)= If[n*m*(n - m) == 0, 1, Abs[(-k m^(k - 1) + k (-m + n)^(k 
               - 1))]]
%e A157654 {1},
%e A157654 {1, 1},
%e A157654 {1, 0, 1},
%e A157654 {1, 2, 2, 1},
%e A157654 {1, 4, 0, 4, 1},
%e A157654 {1, 6, 2, 2, 6, 1},
%e A157654 {1, 8, 4, 0, 4, 8, 1},
%e A157654 {1, 10, 6, 2, 2, 6, 10, 1},
%e A157654 {1, 12, 8, 4, 0, 4, 8, 12, 1},
%e A157654 {1, 14, 10, 6, 2, 2, 6, 10, 14, 1},
%e A157654 {1, 16, 12, 8, 4, 0, 4, 8, 12, 16, 1}
%t A157654 k = 2; t[n_, m_] = If[n*m*(n - m) == 0, 1, Abs[(-k m^(k - 1) + k (-m 
               + n)^(k - 1))]];
%t A157654 Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
%t A157654 Flatten[%]
%Y A157654 Sequence in context: A122888 A092113 A045995 this_sequence A078692 A033151 
               A046079
%Y A157654 Adjacent sequences: A157651 A157652 A157653 this_sequence A157655 A157656 
               A157657
%K A157654 nonn,tabl,uned
%O A157654 0,8
%A A157654 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 03 2009