var i,n,dem:longint;
    f1,f2:text;
function nt(n:longint):boolean;
var i:longint;
begin
    if n<2 then exit(false);
    for i:=2 to trunc(sqrt(n)) do
       if n mod i=0 then exit(false);
    exit(true);
end;
function kt(n:longint):boolean;
var d:longint;
begin
    d:=0;
    while n<>0 do
       begin
           d:=d+sqr(n mod 10);
           n:=n div 10;
       end;
    exit(nt(d));
end;
begin
    assign(f1,'FINENUM.INP');reset(f1);
    assign(f2,'FINENUM.OUT');rewrite(f2);
    readln(f1,n);
    for i:=10 to n do
       if kt(i)=true then inc(dem);
    writeln(f2,dem);
end.

program bai_giai;
var f,g:text;
    n,i,d:longint;
function ktnt(k:longint):boolean;
var r:longint;
begin
    ktnt:=false;
    if k<2 then exit;
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit;
    ktnt:=true;
end;
function kt(m:longint):boolean;
var t,a:longint;
begin
    t:=0;
    while m>0 do
        begin
            a:=m mod 10;
            t:=t+a*a;
            m:=m div 10;
        end;
    if ktnt(t) then kt:=true else kt:=false;
end;
BEGIN
    Assign(f,'FINENUM.INP');  reset(f);
    Assign(g,'FINENUM.OUT');  rewrite(g);
    readln(f,n);
    d:=0;
    for i:=1 to n do
        if kt(i) then d:=d+1;
    writeln(g);
    write(g,d);
    close(f); close(g);
end.