program SmitCount;

{$APPTYPE CONSOLE}

uses
  SysUtils,Math;

var
  N, count, Num, primedel, S1, S2,i,j: integer;
begin
  write('Enter range 0-10^');readln(N);
  N:=Trunc(intPower(10,N)); count:= 0;
  for i:= 1 to N do
  begin
j:=2;

    S1:= 0; S2:=0;
    Num := i;
    while Num > 1 do
    begin
      while (Num mod j = 0) do
      begin
        primedel:= j;
        while primedel > 0 do
        begin
          S2:= S2 + (primedel mod 10);
          primedel:= primedel div 10;
        end;
        Num := Num div j;
      end;
    Inc(j);
    end;
        if (j-1) = i then
      continue;
    Num := i;
    while Num > 0 do
    begin
      S1 := S1 + Num mod 10;
      Num:= Num div 10;
    end;
  if (S1 = S2) then
    count:= count +1;
  end;
writeln(count);readln;
end.