var a,i,k,p:integer;
begin
   k:=3;p:=9;
   for i:=3 to 200 do
    begin
        if i mod 2=1 then k:=(2*k+p) mod 23
                     else p:=(2*p+k) mod 23;
        if k<0 then k:=23+k;
        if p<0 then p:=23+p;
        if i mod 2=1 and k mod 23=0 then write(i,' ');
        if i mod 2=0 and p mod 23=0 then write(i,' ');
    end;
end.