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.