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
                     else k:=2*k-3;
        if k<0 then k:=23-mod(k);
    end;
end.