include Math

ans = 0
num, *ary = $<.map &:to_i

#配列の各値に対して以下の操作を実行．
ary.each do|i|

 #２以外の２の倍数，５以外の５の倍数をはじく．
 if !( ( i % 2 == 0 && i != 2 ) || ( i % 10 == 5 && i != 5 ) || i == 1 )

　#ループで素数判定．
  for j in 2..sqrt(i).floor

   if i % j == 0

    ans -= 1
    break

   end
  end

  ans += 1

 end
end

puts ans

