var
  sum, a, i, b, num: integer;

begin
 b:=0;
  num := 0;
  for i:=1 to 20172017 do
   begin
   b:= i;
   while b <> 0 do
    begin
      num := 0;
      num := num + (b mod 10);
      b := (b div 10);
      if (num = 6) or (num = 9) then
        a := a + 1;
      if num = 8 then
        a := a + 2;
    end;
   end;
  writeLn(a);
end.