var n,d,nf,nr,contor:longint;
    fact:array[1..1000] of longint;
    f,g:text;
begin
assign(f, 'fractii.in'); assign(g, 'fractii.out');
reset(f); rewrite(g);
read(f,n); close(f); nf:=0;contor:=0;
if n mod 2=0 then while n mod d=0 do begin
                                  nr:=nr div d;
                                  inc (nf);
                                  fact[nf]:=2;
                                  end;
d:=3;
while (nr>1) and (d<=trunc(sqrt(n))) do
          if nr mod d=0 then while n mod d=0 do begin
                    nr:=nr div d; inc(nf); fact[nf]:=2;
                    d:=d+2; end;
for nr:=2 downto 2 do inc(contor);
write(g,contor); close(g);
end.