{
TASK:SEKA153
LANG:PASCAL
}
program seka153;
  { 287 uždavinys, 15 olimpiada, II etapas, Jaunesniųjų grupė }  

  function kubu_suma (sk: integer): integer;
  { randa skaičiaus skaitmenų kubų sumą }
    var ks, sktm: integer;
  begin
    ks := 0;
    while sk > 0 do
      begin
        sktm := sk mod 10;
        ks := ks + sktm*sktm*sktm;
        sk := sk div 10;
      end;
    kubu_suma := ks;
  end; { kubu_suma }

  var nr, narys: integer;
begin
  readln (narys);
  nr := 1;
  while narys <> 153 do
    begin
      narys := kubu_suma (narys);
      nr := nr + 1;
    end;
  writeln (nr);
end.