%I #11 Aug 05 2014 13:34:01
%S 1,4,6,4,7,12,19,12,7,10,18,28,36,28,18,10,13,24,37,48,61,48,37,24,13,
%T 16,30,46,60,76,90,76,60,46,30,16,19,36,55,72,91,108,127,108,91,72,55,
%U 36,19,22,42,64,84,106,126,148,168,148,126,106,84,64,42,22
%N Irregular triangle read by rows: T(n,k) (n>=0, 0 <= k <= 2n) = number of triples (u,v,w) with entries in the range 0 to n which have some pair adding up to k.
%e Triangle begins:
%e [1]
%e [4, 6, 4]
%e [7, 12, 19, 12, 7]
%e [10, 18, 28, 36, 28, 18, 10]
%e [13, 24, 37, 48, 61, 48, 37, 24, 13]
%e [16, 30, 46, 60, 76, 90, 76, 60, 46, 30, 16]
%e [19, 36, 55, 72, 91, 108, 127, 108, 91, 72, 55, 36, 19]
%e [22, 42, 64, 84, 106, 126, 148, 168, 148, 126, 106, 84, 64, 42, 22]
%e ...
%e See A245557 for specific examples; also the Example section of A090381 for some of the T(10,10)= 331 triples with n=k=10.
%p with(LinearAlgebra);
%p M:=10; A:=Array(0..M,0..2*M); B:=Array(0..M,0..2*M);
%p for n from 0 to M do
%p for i from 0 to n do for j from 0 to n do for k from 0 to n do
%p s1:={i+j,i+k,j+k}; s1:=convert(s1,list); m1:=max(i,j,k);
%p for r1 from 1 to nops(s1) do
%p s:=s1[r1]; A[n,s] := A[n,s]+1;
%p if (m1=n) then B[n,s] := B[n,s]+1; fi;
%p od:
%p od: od: od: od:
%p lprint("A245556");
%p for i from 0 to M do lprint([seq(A[i,j],j=0..2*i)]); od:
%p lprint("A245557");
%p for i from 0 to M do lprint([seq(B[i,j],j=0..2*i)]); od:
%Y Rows are the partial sums of the rows of A245557.
%Y Main "spine" of triangle is A090381.
%Y Row sums are A005915.
%K nonn,tabf
%O 0,2
%A _N. J. A. Sloane_, Aug 04 2014