OFFSET
0,5
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 18 2009
STATUS
approved