A144627 Initial members of triples listed in A144625.

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, 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, 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

Offset: 0

Author

N. J. A. Sloane, Jan 18 2009

Keywords

• nonn

Programs

Maple

for n from 0 to 7 do
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;
od: od: od: od:

Mathematica

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 *)