uses crt;
var n,i,j,d:longint;
a:array[1..10000000] of boolean;

procedure sang(n:longint);
var i,j:longint;
begin
fillchar(a,sizeof(a),true);
a[1]:=false;
for i:=2 to trunc(sqrt(n)) do
 if (a[i]=true) then
 begin
  j:=i*i;
  while j<=n do
  begin
   a[j]:=false;
   j:=j+i;
  end;
 end;
end;

begin
clrscr;
readln(n);
sang(n);
for i:=2 to n-1 do  // chưa tìm dc cách tối ưu 2 vòng for này :v cao nhân nào chỉ vớii
for j:=i+1 to n-i do
 if (a[i]=true) and (a[j]=true) and (a[i+j]=true) then
  d:=d+1;
write(d);
readln
end.