%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