const m=2016; n=256*(m+1)-1;       type as=set of byte;
var o: text; j,k,l,kl: longint;  s: array[0..m] of as; begin
assign(o,'simple.out');
for j:=0 to m do s[j]:=[0..255];  rewrite(o);
for l:=2 to n div 2 do if l mod 256 in s[l div 256] then
for k:=2 to n div l do                                begin
            kl:=k*l;  exclude(s[kl div 256],kl mod 256) end;
for j:=2 to n do if j mod 256 in s[j div 256] then
writeln(o,j);                                close(o);  end.