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