var n, kol:longint;
begin
read(n);
while (n mod 3 = 0) do
begin
n := n div 3;
inc(kol);
end;
if (n = 1) then
writeln(kol)
else
writeln('NO');
end.