var
i,j,k,l,n,t:longint;
begin
read(n);
for l:=2 to n do
for i:=2 to l do
for j:=i to l do
for k:=j to l do
if l*l*l=i*i*i+j*j*j+k*k*k then 
writeln('Cube = ',l,', Triple = (',i,',',j,',',k,')');
end.