login
Initial members of triples listed in A144625.
1

%I #8 Nov 21 2013 12:49:26

%S 0,1,0,0,2,1,0,1,0,0,3,2,1,0,2,1,0,1,0,0,4,3,2,1,0,3,2,1,0,2,1,0,1,0,

%T 0,5,4,3,2,1,0,4,3,2,1,0,3,2,1,0,2,1,0,1,0,0,6,5,4,3,2,1,0,5,4,3,2,1,

%U 0,4,3,2,1,0,3,2,1,0,2,1,0,1,0,0,7,6,5,4,3,2,1,0,6,5,4,3,2,1,0

%N Initial members of triples listed in A144625.

%p for n from 0 to 7 do

%p for k from 0 to n do for j from 0 to n do for i from 0 to n do if i+j+k=n then lprint(i,j,k); fi;

%p od: od: od: od:

%t DeleteCases[Flatten[Table[If[i+j+k==n,i],{n,0,10},{k,0,n},{j,0,n},{i,0,n}]],Null] (* _Harvey P. Dale_, Mar 27 2012 *)

%K nonn

%O 0,5

%A _N. J. A. Sloane_, Jan 18 2009