uses crt;
var d,n,i,j:int64;
a:array[1..100000] of int64;
begin
clrscr;
readLn(n);
d:=0;
for i:=1 to n do
a[i]:=0;
for i:=1 to n do
for j:=i to n do
if j mod i=0 then
inc(a[j]);
for i:=1 to n do
if a[i]=4 then
inc(d);
writeLn(d);
end.

{*
 *    author:  tđq
*}
program task;

uses
  SysUtils;

type
  LongLong = Int64;

const
  nmax = 1000000 + 5;

var
  f: array[1..nmax] of LongLong;
  n, d: LongLong;

procedure sang;
var
  i, j: LongLong;
begin
  for i := 1 to 1000000 do
    for j := i to 1000000 do
      Inc(f[j]);
end;

begin
  // freopen(task'.inp' , 'r' , stdin);
  // freopen(task'.out' , 'w' , stdout);

  sang;
  Readln(n);
  for i := 1 to n do
    if f[i] = 4 then
      Inc(d);
  Writeln(d);
end.