---

var
  a, p: integer;
procedure ppd(n: integer; var d: integer);
begin
  d := 2;
  while n mod d > 0 do d := d + 1;
  writeln(d);
end;
begin
  write('a=');
  readln(a);
  while a > 1 do
  begin
    ppd(a, p);
    a := a div p
  end;
end.